
AVERTISSEMENT 

J’ai rencontré l’autre jouir un vieux journa- 
liste qui m’a dit que les éditoriaux n’étaient 
en général pas ou très peu lu. 

Or en lisant le premier jet de ce bulletin 
nouvelle formule (chose promise... chose 
due !), je constate que nos amis des clubs 
ne connaissent pas de vieux journalistes 
puisque j’ai découvert : 

-un éditorial PC 1211 

- un éditorial PC 1500 

- un éditorial MZ 80 (et encore il paraît que 
Sylvain BIZOIRRE en avait préparé un pour 
le K, un pour le A et un pour le B). 

De plus je crois savoir que Luc BURELLER 
est déjà en train de préparer celui du PC 
1251 pour le prochain bulletin. 

Pour réagir à cet état de chose, j’ai décidé 
de supprimer dans ce bulletin mon éditorial. 
A la place vous ne trouverez donc ce tri- 
mestre que le MOT de SHARP. 

D. MONTERNOT. 


Le mot de 
SHARP 

Voici un bulletin en habit de gala qui je l’es- 
père vous procurera beaucoup de plaisir. 

Vous y trouverez les rubriques habituelles, 
mais désormais largement développées 
grâce à l’arrivée de nouveaux « journalis- 
tes ». 

Je profite donc de ces colonnes pour citer 
et remercier tous ceux qui ont collaboré à 
cette édition. 

Christophe CAMUS, Frédéric SANGUI- 
NETTI, Olivier BOISSE, (PC 1500/PC 
1211) et Simon CHAGNOUX (MZ). 

Sans oublier bien sûr les deux piliers du 
Club Luc BURELLER et Sylvain BIZOIRRE. 

Au hasard d’un coup de téléphone ou d’un 
courrier c’est certainement l’un d’entre eux 
qui vous répondra et vous aidera. 

Puisque nous en sommes au chapitre des 
félicitations j’aimerais encore citer quelques 
personnes. 

Tout d’abord TROIS SHARPENTIERS qui 
nous ont envoyés des articles très intéres- 
sants Bernard MILLET (Soyez logique);, 
Christophe BOUCHON (Clavier) et J.C. 
LAURENT (Astuces) et puis bien sûr tout 
ceux qui envoient des programmes qui 
viennent enrichir les logithèques. 

Un petit problème pourtant il semble que 
les PECEQUINZECENTISTES ne soient 
pas très courageux... 

WAEL KOMBAR lui a gagné avec sa 
PC 1211 le concours OTHELLO organisé 
par notre confrère (pourquoi pas !) ('ORDI- 
NATEUR INDIVIDUEL et ceci face à 70 au- 
tres PICO-ORDINATEURS, notre fierté 
n’est pas des moindres lorsque l’on sait que 
dans ce concours il n’y avait que 
3 PC 121 1 engagés et que deux d’entre el- 
les se classent dans le trio* de tôte. 


Enfin pour clore les éloges et parce qu’on 
n’est jamais si bien servi que par soi-même 
un grand merci à SBM pour les moyens 
qu’elle met à la disposition des clubs. 

Voilà je pense n’avoir oublié personne dans 
ce tableau d’honneur du club, et je me fais 
l’interprète de SHARP auprès de chacun 
d’entre vous pour vous souhaiter d’excel- 
lentes fêtes de fin d’année. 

Et une année 1983 SHARPENTIEREMENT 
Réussie. 

D.M. 


Réassignation 
du clavier et des 
caractères du 
PC- 1500 

Le PC-1500 à deux possibilités non décla- 
rées dans le manuel : on peut réassigner 
toutes les touches du clavier (sauf DEF, 
SML, SHIFT et ON/BREAK), c’est-à-dire 
changer le caractère obtenu en appuyant 
sur une touche ou sur touche SHIFTEE (les 
fonctions MODE, RCL, FI...F6, ENTER, 
OFF, CL, CA, INS, DEL, SHIFTMODE et 
sont considérées comme des caractères 
dont les codes ASCII sont compris entre & 
00 et & 1 F. 

Le PC-1500 lorsqu’il reçoit les coordonnées 
d’une touche qui a été enfoncée au clavier 
convertit ces coordonnées en un code AS- 
CII par l'intermédiaire d’un tableau : chaque 
couple de coordonnées possibles corres- 
pond à deux éléments dans le tableau un 
pour la touche pressée seule, un pour la 
touche précédée de SHIFT, chaque élé- 
ment de ce tableau est un octet en ROM 
qui donne le code ASCII voulu. Il y a 64 
touches au clavier (plus la touche ON/ 
BREAK mais celle-ci ne fonctionne pas de 
la même façon) donc le tableau fait 2 x 64 
= 128 octets : dans la ROM du BASIC, il va 
de l’adresse & FE80 à & FEFF. Bien sûr, 
tant que ce tableau est en ROM, on ne peut 
pas le modifier. Il faut pour cela faire savoir 
au PC-1500 qu’on désire que le tableau 
soit lu dans la RAM utilisateur (&4000 à 
&47FF pour le PC-1500 seul, &4000 à 
&47FF avec le CE-151 et &3800 et &5FFF 
avec le CE-155). Soit &NN00 l’adresse qui 
suit immédiatement le 128ème octet où l’on 
veut placer le nouveau tableau, on fait alors 
POKE&785D, & 80, & NN pour indiquer 
l’adresse du nouveau tableau au PC-1500. 
Mais l'ancien clavier est encore actif. Pour 
activer le nouveau, on fait : POKE&764E, 
&40R PEEK&764E. 

Pour revenir à l’ancien, on fait simple- 
ment : SML (Appuyer sur la touche SML). 
Si vous n’avez pas le CE 155, vous fe- 
rez : NEW &4200 (Pour protéger de la mé- 
moire contre l’effacement par la commande 
NEW seule), POKE &785D, &80, &42. 


Editorial 1500 

Avant toute chose nous vous de- 
mandons de bien vouloir nous ex- 
cuser pour le retard que nous 
avons pris dans le courrier. Tout a 
été enregistré ne vous inquiétez 
plus les réponses sont en cours. 
C’est à partir de ce bulletin que le 
club PC 1500 commence réelle- 
ment à apporter de nombreux ren- 
seignements. Ceci c’est grâce à 
vous qui nous avez donné des 
trucs et des astuces. Mais vous 
êtes encore trop peu nombreux à 
nous envoyer des programmes. 
N’oubliez pas que c’est votre bulle- 
tin, que c’est votre club. 

Vous vouliez des codes, et bien 
nous vous donnons une partie de 
ceux que nous connaissons, à 
vous d’en tirer partie et de nous 
envoyer vos programmes en L.M. 
Vous trouverez dans ce bulletin un 
exemple de présentation pour les 
programmes que vous nous ferez 
parvenir, en effet pour le 1500 les 
programmes recevront un certain 
nombre de bonus. Vous pourrez 
par conséquent recevoir autant de 
programmes que vous voudrez 
jusqu’à concurrence des bonus 
que vous aurez. 

Un programme complet, c’est-à- 
dire : 

- Listing 

- K7 si status 2 5*2000 (nous vous 
la retournerons) 

- explications : à quoi sert te pro- 
gramme, domaine d’application 

- contenu des variables. 

- explications : ligne à ligne des 
principales routines. 

Vous donne d’ores et déjà droit à 2 
bonus. 

(Nous rappelons que le bonus qui 
est l’unité monétaire de logiciel 
club n'est pas côté en bourse). 
Surtout expliquez bien les routines 
en L.M. 

Certains d’entre vous ont cherché 
à développer des choses intéres- 
santes autour de leur 1500 nous en 
parlerons dans une nouvelle rubri- 
que courrier Annonce. Vous êtes 
très peu à nous avoir donné votre 
avis sur les clubs régionaux qu’en 
pensez-vous ? Ecrivez-nous. 

Alors à vos plumes et à vos 1500. 

A bientôt. 

Luc BURELLER. 




PC 1500 


(Suite Réassignation) 

Avec te CE-155 : NEW &3A00, POKE 
&785D, &80, &3A. 

Dans te premier cas, tes 128 adresses oc- 
cupées par le tableau du nouveau clavier 
seront 84180 à &41FF, dans le second 
cas, ce seront tes adresses mémoire 
&3980 à &39FF. 

Cependant, il faut placer des données cor- 
rectes dans ces 128 octets pour que le 
nouveau clavier ait une signification. Voici 
donc un tableau pour savoir à quelle touche 
correspond chacun des 128 octets. 

ATTENTION : On ne peut pas modifier le 
caractère émis par les touches correspon- 
dant à une case contenant une étoile. 

En fait, ce tableau est celui qui est contenu 
dans la ROM. 


Pour entrer les valeurs que Ton a choisies, 
on utilise le petit programme sui- 
vant : 1 : FOR A = &3980 T0 &39FF : IN- 
PUT « valeur »= , B : POKE A. B : NEX- 
TA : END. 

On peut aussi mettre les valeurs une à une 
par POKE (c’est plus long). L’adresse cor- 
respondant à une case du tableau se calcu- 
le ainsi : on cherche la touche dans le ta- 
bleau, on prend sa « référence » (par 
exemple : Nesten 801 , Pen 82D). 

L’adresse concernant la touche dans le ta- 
bleau sera alors 3980 + référence. 

Pour savoir ce que l'on peut mettre comme 
valeur dans chaque case et quel sera l’effet 
obtenu en appuyant sur la touche, consul- 
ter le tableau ASCII complet qui suit. Si on 
a pas le CE-155, remplacer les 839... par 
des 841 dans ce qui précède. 


Création de 

nouveaux 

caractères 

Pour créer de nouveaux caractères, il suffit 
de mettre une table à partir de la fin de la 
table en RAM de réassignation davier. 
Chaque nouveau caractère occupe 5 octets 
(codés comme pour G PRINT : 1 octet va- 
lant de ù à 87F pour chacune des 5 colon- 
nes du caractère). Les codes ASCII des 
nouveaux caractères vont de 880F à 8FF 
(on les obtient par CHR$) dont seuls ceux 
dont les codes vont de 8A0 à 8DF sont 
réassignables au clavier. Soit n le nombre 
de nouveaux caractères que l'on veut 
créer : on fait NEW 83A00 + nx5 avec le 
CE155 et NEW 84200 + nx5 sans CE-155, 
puis on exécute le programme suivant : 

1 : INPUT « N N : FOR A- OTO N * 5— 
1 : INPUT B : POKE 8A00 + A, B : NEXT 
A : END. 

Donner le nombre de caractère voulu puis 
les données les constituante un par un. 
Remplacer 83A00 par 84200 si vous 
n’avez pas le CE-155. 

Quelques caractères sont donnés comme 
exemples. 

Pour mettre sur cassette les deux tableaux, 
on fait : 

avec CE-155 : CSAVEM « CLAVIER - ; 
83980,839 FF 

CSAVEM « CARACTE- 
RES *, 83A00, 83A00 + n x 15 - 1. 

sans le CE-155 : idem mais 839... devient 
841... et 83A... devient 842... 

Pour les relier : CLOADM « CLAVIER » ou 
CLOADM « CARACTERS ». 
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* ce code ne peut être utilisé. PRE : octet de préfix des mots clés du BASIC inutilisables. DEF ‘touche” : agit comme 
la pression successive sur DEF puis sur ta touche indiquée. C.P. : caractère créé par l'utilisation voir la suite de l'arti- 
cle. 
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06 

84 

24 

ê 

*> 

56 

06 

85 

86 

24 
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»> 

0 

1 

124 

1 

0 

«2 

a> 

56 

68 

60 

84 

88 

Û 
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-> 

56 

70 

69 

70 

56 

o 


56 

69 

66 

69 

56 

ù 

*> 

60 

65 

66 

32 

124 

► 


127 

62 

28 

8 

0 


Astuce 

Effet de status — 
Effet de RND 

Dans la catégorie « instruction mal expli- 
quée » nous allons voir aujourd'hui les ins- 
tructions STATUS et RND 

Commençons par l'ordre STATUS. 

Dans le manuel deux cas sont expliqués, 
en fait il y en a bien d'autres. Cette instruc- 
tion s’utilise sous la forme status n, avec 0 
^ n s* 255 et signifie selon la valeur de n : 

si n = 0 : 

La commande renvoie la taille mémoire 
utilisateur encore libre c’est-à-dire le nom- 
bre de pas de programme utilisables. 


si n « 1 : 

Id ie^nombre^donné représente la taille 
! du programmecqui 86 trouve en mémoire 
(ou de tous les programmes après un mer- 
gefc ^TATUS^aet ST ATUS 1 sont en fait 
des'contpléawrtta l'un de l'autre par exem- 
ple dàns^uftP£ 1500 sans module mémoi- 
re STATUS 0 + STATUS 1 est toujours 
égal à 1850. 

si n=2;: 

On obtient l’adresse mémora + 1 de la 
zone mémoire programme. remarquera 
(voir explication § ligne de prgÿ que PEEK 
(Status 2 — 1 ) donne toujours 255. 

si n = 3 : 

On obtient l’adresse mémoire — 1 de la 
zone mémoire donnée. Ceci est très utile 
car si dans un programme où il y a des di- 
mensionnements de variables on veut 
connaître le nombre de pas programmables 
effectivement il faut faire (STATUS 3 — 
STATUS 2) et non pas STATUS 0. 

si n > 4 : 

Le 1500 nous donne le numéro de la der- 
nière ligne exécutée. Après un end ou si 
aucun programme n'a été exécuté STA- 
TUS 4 vaut 0< 

Toutes les formes de STATUS zv sont pro- 
grammables et sont très utile* dans l'utili- 
sation des variables ou bien dans jes gojto 
relatifs (sous programmes). 

La fonction RND (n) nous renvoie un nom- 
bre aléatoire mais attention car ce nombre^ 
aléatoire dépend en quelque sorte de n. 

En réalité 3 cas se présentent : 

si n > 0 : 

Alors RND (n) donne un nombre aléatoi- 
re entier compris entre 1 et n. 

1 RND (n) n 

sin = 0: 

Alors RND (0) donne un nombre aléatoi- 
re décimal compris entre 0 et 1 
0 < RND (0) < 1 

si n < 0 : 

Alors on définit une fonction pseudo- 
aléatoire d’argument n. 

RANDOM RND (—5) 

Désormais en RND (n) avec n > 0 on 
aura une suite de nombre aléatoire que l’on 
retrouvera toujours après ou RND ( — 5). 


Une ligne de programme 

Lorsque l'on introduit une ligne de program- 
me celle-ci vient s'inscrire quelque part 
dans la mémoitè etce <d r une certaine ma- 
nière, c'est ceeqqe t'do va loir maintenant. 

L'instruction STATUS 2 lorsque la mémoire 
est vide cnous adonne l'adresse + 1 de la 
zone (mémoire programmèr ent à partir de 
; cette adresse que vont venir s'inscnre les li- 
gnes de programme que Itar introduira. 

Du côté utilisateur, une ligne dé program- 
me, c'est un numéro, une ou plusièurs ins- 
tructions avec leurs données et la pression 
de la touche ENTER pour valider cette li- 
gne. 

Du côté machine cela se passe à peu près 
de la môme manière. Tout d'abord un nu- 
méro codé sur deux octets (rappelons que 
le mot octet correspond au mot pas et qu'l 
Kilo octet (KO) équivaut à 1024 octets. De 
ce fait on en déduit facilement la valeur du 
plus grand numéro de ' ligne : un octet 
contient au maximum 255 si les 2 valent 
255 on a en décimal le numéro 255x 256 
+ 255 c'est-à-dire 65535, or la valeur 255 
a une signification spécial et ne peut en 
aucun cas représenter le premier octet d'un 
numéro de ligne. Donc le numéro maximum 
sors * 

254 x 256+ 255 c'est-à-dire 65279. 

Ensuite il y a un octet donnant la longueur 
de la ligne et la ligne elle -môme codée en 
ASCU sauf pour les mots réservés qui sont 


PC 1500 


codés sur 2 octets. Et puis le code $0D qui 
représente ENTER et qui est le code de fin 
de ligne. A cet instant 2 cas se présen- 
tent : s’il y a une autre ligne de programme 
derrière la codification reprend immédiate- 
ment. 

S’il n’y a pas d’autre ligne derrière celle-ci 
la machine met un &FF dans l’octet qui suit 
le dernier OD. Cette valeur est une sorte de 
verrou qui indique que la zone de mémoire 
programme se termine momentanément ici. 
Etant donné que ce &FF ferme toujours la 
marche c’est la raison pour laquelle PEEK 


(STATUS 2—1) = &FF. 

Voyons ceci avec 2 exemples : faites 
-NEW0 

-STATUS 2 -» 16581 (si PC-1500 seul 
ou PC+ CEI 51) 14533 (si PC + CE 155). 

- 1 0 PRINT t t ENTER 

- 65279 GOTO 1 0 

Le status 2 nous a permis de connaître 
l’emplacement de la zone mémoire désor- 
mais par PEEK successif à partir de cette 
adrsse vous pouvez retrouver la structure 
des lignes introduites. 


00 

0A 

04 

fo 


97 


5D 

0D 


FE 

FF 

N° 

ligne 

Longueur 

* 

Instruction 

* 

Donnée 

♦ 

Fin de Ligne 


N° de ligne 

05 


Fl 

92 


31 


30 

0D 


FF 


Longueur Instruction Donnée Fin de Ligne Fin de Zone 


10 : PRINT n lENTERl 65279 : GOTO 1 0 IENTERI FIN 


soit sous une forme plus générale. 
Nous aurons sur l’afficheur : 


Tl I 

2 octets 1 octet n — 1 octet de basic ENTER 

N° ligne Longueur de la ligne Basic n. 



Voici un petit programme amusant utilisant 
la mémoire programme. Il permet de mettre 
dans un print le contenu d'une variable. 
Faire NEWO. 

ATTENTION si PC + CEI 55 mettre I = 
&38CB en ligne 10. 

10: PRINT "1234567 
89012345678901 
23456 I-8.40C 

B: DI fl A$(0>*26 

20: INPUT "Texte: " 

; A$(0>: B-LEN C 
A$(0));FOR J=J 
TO 1+B: POKE J, 

QSC' ri JD.* (A*(0 
)> J-l + 1, 1 ) : 

NEXT J 

30: POR J=J+BT0 1+ 

26: POKE J, &20: 

NEXT J : LL 1 ST : 

END 

Le listing doit être scrupuleusement respec- 
té. 

Des codes, la vidéo. 

A l’occasion d’un programme présenté plus 
loin quelques codes LM seront présentés. 
En ce qui concerne le LM nous possédons 
environ 250 codes que nous avons décou- 
verts à force de recherche. Etant donné 
que nous nous sommes fabriqués un pro- 
pre mnémonique pour nous faciliter l’utilisa- 
tion de ce langage nôus hésitons à donner 
un pseudo mnémonique empreint du Z80 
c’est pourquoi les codes que nous vous 
donnerons seront expliqués mais ne seront 
pas accompagnés d’un mnémonique. 

Avant d’expliquer ce programme qui gère la 
ram vidéo voyons comment cette zone de la 
mémoire est constituée. 

L’afficheur de la PC 1500 est constitué 
d’une matrice 7 x 156 et de 13 indicateurs. 
Commençons par le plus simple : les indi- 
cateurs au nombre de 13 ; ils représéntent 
une fonction vérifiée s’ils sont allumés. Ain- 


si on peut changer de mode en changeant 
l’indicateur run par l’indicateur pro par 
exemple. 

Les indicateurs représentent les bits com- 
posant les octets &764 E et &764 F. 

Rappelons qu’un octet : une case mémoire, 
est constituée de 8 bits, 8 positions succes- 
sives qui peuvent être mises à zéro ou à 1 . 
C'est en fait la représentation binaire d’un 
nombre. 

Ainsi en &764 E nous avons : 

DEF III III SM2 SHIFT BUSY 

bit 7 6 5 4 3 2 1 0 

et en &764 F nous avons : 

RUN PRO RES RAD G DE 

bit 7 6 5 4 3 2 1 0 

Ainsi, si par poke on veut allumer, RE- 
SERVE, DE et RAD. 

C’est-à-dire le bit 2 de l’octet &764 E et les 
bits 0,2 et 4 de l’octet &764 F on fera : 

POKE &764E, 2 x 2, 2x0 + 2x2 
+ 2x4 ENTER 

La matrice 7 x 1 56 

La mémoire vidéo se trouve en 2 parties de 
7600 à 764 D et de 7700 à 774D, elle occu- 
pe 156 octets de la mémoire système. Mal- 
heureusement cela aurait été trop simple si 
chacun de ses octets représentaient une 
colonne de l’afficheur. 

Une colonne de l’afficheur voit sa représen- 
tation dans la mémoire sur deux octets et 
dans ces mêmes deux octets se trouvent 2 
colonnes partagées dans les parties bas- 
ses et hautes de cet octet. 

Aipsi dans les octets d’adresse pair on trou- 
ve la partie haute de la colonne n+ 18 et n 
tandis que dans l’octet impair suivant on 
trouve la partie basse de la colonne n + 78 
et n. 

Représentons ceci par un schéma : 

Octet d’adrésse paire 

7 6 5 4 3 2 1 0 

Tous les bits servent. 


Octet d’adresse impaire 

7' 6’ 5’ 4’ 3’ 2’ 1’ 

Les bits 7 et 3 ne servent pas. 


Nous aurons sur l’afficheur 



Et de cette manière nous avons 

Un bit à 1 correspond à un point allumé. 

- de &7600 à &764 D 

Les colonnes 78 à 1 1 6 et 0 à 38. 

- de &7700 à &774 D. 

Les colonnes 1 1 7 à 1 55 et 39 à 77. 

Exemple : Si l’on veut allumer la partie hau- 
te de colonne 30 et la partie basse de la co- 
lonne 108 on fera : 

POKE & 763c & 0F & 70. 

Ecrire ceci dans un programme : 

10 POKE & 763c, & 0F, & 70. 

20 GOTO 20. 

Maintenant vous pourrez vous attaquez au 
programme de voitures et essayé de com- 
prendre à l’aide des explications la manière 
de rédiger un programme en L.M. 

Passons à l’explication des instructions et 
famille d’instructions nécessaires à la com- 
préhension de ce programme. 


Le MPU possède en plus des registres ex- 
clusifs, sept registres utilisateurs. 

Nous les nommerons A comme accumula- 
teur et Uh, UL, Xh, XL, Yh, YL. qui sont les 
6 autres registres utilisables par paire. 
(Lorsqu’ils seront utilisés comme double re- 
gistre nous omettrons l’indice). 

Passons maintenant à l’explication code à 
code. 


Chargement d’un registre dans l’accumula- 
teur : 1 octet. 


04 
84 
1 4 
94 
24 
A4 


A UL 
A <— Uh 
A <— YL 
A <— Yh 
A <— XL 
A Xh 


'Chargement de l’accumulateur dans un re- 
gistre : 1 octet. 


08 

Uh «— A 

0A 

UL «- A 

1 8 

Yh «— A 

1 A 

YL «— A 

28 

Xh «— A 

2 A 

XL «— A 

Chargement d’une donnée dans un regis- 

tre : 2 octets. 
48 

Uh n 

4 A 

UL «-'n 

58 

Yh <— n 

5 A 

YL <— n 

68 

Xh <— n 

6 A 

XL «— n 

B 5 

A <— n 

Chargement du contenu d’un double regis- 

tre dans l’accumulateur : 

1 octet. 

05 

A «- (UU) 

1 5 

A «- (YY) 

25 

A «- (XX) 


Chargement du contenu d’une adresse 
spécifiée par un double registre dans l’ac- 
cumulateur et incrémentation ou décrémen- 
tation du 1 octet double registre utilisé. 

1 octet. 


45 

4 7 
55 

5 7 
68 

6 7 


A — (UU) 
A — (UU) 
A «- (YY) 
A — (YY) 
A «- (XX) 
A — (XX) 


UU <-UU + 1 
UU <-uu — 1 

YY <— YY + 1 
YY <— YY — 1 
XX <-XX + 1 
XX <-XX — 1 
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Chargement de l'accumulateur à l'adresse 
spécifiée par un double registre suivi d’une 
opération sur ce dit registre. 


1 octet. 


4 1 

(UU) <- A 

UU <^UU 

+ 

1 

43 

(UU) — A 

UU <-uu 

— 

1 

51 

(YY) A 

YY <— YY 

+ 

1 

53 

(YY) «- A 

YY <-YY 

— 

1 

61 

(XX) «- A 

XX XX 

+ 

1 

63 

(XX) — A 

XX ^XX 

— 

1 

Incrémentation décrémentation d’un double 

registre : 

1 octet. 




44 


UU ^uu 

+ 

1 

4 6 


UU <— UU 

— 

1 

54 


YY YY 

+ 

1 

56 


YY 4— YY 

— 

1 

6 4 


XX ^-XX 

+ 

1 

66 


XX <-XX 


1 


Test entre un registre et une donnée calcul 
r-n non conservé : 2 octets. 

4C Calcul Uh -n non conservé, 

comparé Uh et n. 
4 E UL - n 


5 C 

5 E 

6 C 
6 E 
B 7 


Yh - n 
YL - n 
Xh - n 
XL - n 
A - n 


Saut relatif conditionnel ou inconditionnel 
2 octets. 


8 1 saut en avant de + e octet si résultat 

négatif 

9 1 saut en arrière de — e octet si résultat 

négatif. 

8 3 saut en avant de +e octet si résultat 

positif ou nul. 

9 3 saut en arrière de 8e octet si résultat 

positif ou nul. 

8 9 saut en avant de + e oxtet si résultat 

différent de zéro. 

9 9 saut en arrière de — e octet si résultat 

différent de zéro. 

8 B saut en avant de +e octet si résultat 

égal à zéro. 

9 B saut en arrière de 8e octet si résultat 

égal à zéro. 

8 E saut en avant de + octet. 

9 E saut en arrière de — e octet. 


Autre : 

8 8 XL<— XL — 1 et saut en arrière de — e 
octet si XLss 0. 

2 octet 

A E (nn)<— A chargement de l’accumulateur 
à une adresse nn. 

3 octets 

B E CALL nn appel d'un sous programme 
d'adresse nn. 

3 octets 

9 A RTN retour d’un sous programme. 

1 octet. 

F 1 Echange la partie basse et la partie 
haute de l’accumulateur. 

1 octet. 

Et voilà, en espérant que ces codes vous 
serviront, vous avez été nombreux à nous 
en demander. D'autres codes la prochaine 
fois. 

Adresses intéressantes : 

Un beep continu : Faites POKE &FDE7,n 
avec &41 e n ^&44. 

Faites un beep de « fréquence » n pour 
l'arrêter ; éteindre la machine ou bien faire 
POKE &FDE7.0. 


Tapez donc de petit programme amusant : 

10: IF INKEYé 
THEN 10 

20: POKE# &FDE7, 

2 

30: IF 1NKEYS <>"" 
THEN 30 

40: POKE# &FDE7, 0 
50: GOTO 10 


- Protégez un programme : 

POKE # &F01D, &FF bloque le breaX s’il y 
a des wait 0 sur les print uniquement) 

POKE # &F01D, &00 débloque le break. 

-Obtenez de gros gros caractères sur 
l’imprimante. On n’est plus limité à 9 tailles 
de caractères mais à 36. 

POKE &79F4, TAILLE 
TAILLEs=36 

- Eteignez votre machine par programme 

CALL & CD 71 

- Faites un clear en LM 

CALL & DO 80 

- Faites un beep CALL & E669 équivaut à* 
beep 1 . 

- En LM pour faire des beeps mettez la 
fréquence dans XL, la durée sur deux oc- 
tets dans UH et UL et faites & BE, & E6, 
&6F. Cela équivaut à BEEP 1 , XL, Uh Ui. 

- En LM scruter le clavier (équivaut à IN- 
KEY $) 

& BE, & E4, & EC. 

Au retour de ce sous programme on a TAS- 
CI I de la touche enfoncée dans A si on a 
pressé une touche. 

Logithèque 
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Programmes 

I — Programme de voitures : 

II s’agit d’un jeu où il vous faut parcourir 
156 km sans accident pour que le jeu soit 
attrayant et assez rapide, la voiture : un 
point ne se déplace pas, mais c’est la route 
qui se déplace grâce à un programme en 
LM qui se charge de ceci. 

Passons au programme tout d’abord : le 
basic. 

Avant toute chose faites NEW & 38EF si 
vous avez un module 8K sinon faites NEW 
& 40EF et modifier les fignes. 

90 : CALL & 40C6 

180 : « D » RESTORE : FOR l=& 40C6 T0 
& 40EE... 


après def « D », faire POKE & 40C9, &40 ; 
POKE & 40D2, &40, et POKE & 40D7, 
&40. 

L’entrée dans ce programme se fait de 
deux manières. 

DEF « D » à faire la première fois obligatoi- 
rement. 

DEF « » mise en fonction du prg jamais 
faire DEF « » ; après l’introduction du pro- 
gramme. 

La partie basic du programme chargée de 
créer la route est assez lente mais attention 
le jeu commence dès que la route est finie. 

Le but est d’atteindre la ligne d’arrivée qui 
vient vers vous par la droite. Vous possé- 
dez 10 vitesses : pavé numérique de 0 à 9 
(plus la vitesse est petite plus vous allez 
vite), et 2 touches de direction A et T sui- 
vant que vous voulez monter ou descendre. 

Attention si vous touchez les bottes de pail- 
les c’est fini. Votre voiture se trouve tou- 
jours sous le D de deg. 

Programme basic exploitation. 

Ligne : 10 à 40 initialisations : création de la 
route. 

050 Test si on passe en vitesse 0. 

060 Test si le programme est fini avec vic- 
toire. 

070 Changement de vitesse autre que 0 
s’il y a lieu. 

080 Extinction de la voiture. 

090 Appelle au sous programme en L.M. 

1 00 Test si on veut descendre. 

110 Test si on veut monter. 

120 Test si on s’est planté. 

130 Affiche la voiture, boucle d’attente cor- 
respondant à la vitesse retour au pro- 
gramme. 

140 à 150 Affichage de l’étoile signalant 
que l’on s’est tué au volant. 

160 Félicitations si Ton a réussi le par- 
cours. 

170 Calcul des points-Affichage du Score. 
180 Initialisation du programme L.M. 

190 à 200 Data. 

Contenu des variables : 

A Bit bas de la route routine création. 

B Valeur aléatoire routine création. 

E Horaire au début de la partie et score. 

F Flag signifiront si Ton a gagné ou perdu. 
G Vitesse. 

I Compteur de boucle. 

M Flag test si Ton change de vitesse. 

O, P, Q, R, S, T... Dessin de la route au ni- 
veau de l’arrivée. 

U Horaire de fin de partie. 

V Bit haut de la route... routine création. 

W Position de la voiture (2 ^ Z) opératoi- 
re. 

X Colonne affichée routine création, 
z Position de la voiture (bit). 

Programme en L.M. : Pour les explications 
détaillées des instructions voir (astuces). 

Contenu des registres : 

XL compte le nombre d’exécution, pour le 
décalage d’un pixel, il faut boucler deux fois 
sur ce programme d’où la valeur 01 au dé- 
but du programme. 

Uh-UL contient l’adresse sur laquelle on 
travaille ; son contenu est d’abord sauvé en 
38C5 puis après le décalage resauve en 
YL. 

Ye contient la valeur contenue à l’adresse 
UhUL et qui doit être décalée. 

Explication ligne à ligne : 

..C6 Compteur programmé utilise l’ins- 
truction 88 car le programme sera 
utilisé 2 fois (voir + loin.) 

..C8 Appelle le sous programme qui se 
trouve en ..EA 

..EA Met dans A ce qui se trouve dans la 
case vidéo la plus basse. 

„ED Echange la partie haute et la partie 
basse de A. sinon le décalage écran 
se ferait en 2 moitiés. 
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..EE Retour au programme LM Principal. 

..CB Sauve A dans Ye : mémoire contenu 
vidéo. 

..CC Partie haute de la 2* m * page vidéo. 

..CE Partie basse de la 2""* page vidéo. 

..DO On met dans A ce qui se trouve en 
Uh Ul (mémoire que l'on gère). 

..DI On le sauve en 38C4. 

,.D4 On rappelle dans A ce qui se trouvait 
en vidéo. 

..D5 On la rerhet èh, vidéo (Pixel — 1/2) et 
on décrémente Uh’Ul. 

,.D6 On remet dans A ce qui se trouve en 
38C5. 

..D9 On le met dans YL. 

..DA On regarde si la page vfdép est finie. 

..DC Si oui (UL = &FF) on sauté 2 octets. 

..DE Non alors on recommence. 

..EO On regarde si les 2 pages ont été 
faites. 

..E2 Si non (Uh = 75) on saute 3 octets. 

..E4 Oui alors on regarde si le programme 
est terminé, *on décrémente XL et si 
XL = &FF alors on recommence tout. 

..E6 TERMINER, on retourne sous basic. 

..E7 On décrémente Uh UL (changement 
de page). 

..E8 On retourne dans le cœur du pro- 
gramme. 


On boucle 2 fois sur ce programme à cause 
de la structure de la vidéo. Si on l'utilisait 
qu’une fois on retrouverait les parties bas- 
ses et hautes de la vidéo inversée ex : A 
donne 



Amusez-vous bien 


I.S. 


10:" "U-5; ?=3: A-l 
. G=0: NA1 T 0; 
p 0R I-0TO 155: 
GCURSOR 1 : B= 
RND (3)-2; 1F ( 
A+B<0)OR (U+B > 
6)LET B- -B 
20: IF I=54GPRINT 
8.7F. NEXT .1 
30 : A=A+B : U—U+B • 
GPR INT 2'*'B-*-2^U 
: 1F J/3=1NT ( 1 
✓3>LET X--A+1+2 
*<RND (2 )- 1 ) . 
GCURSOR ] . 

GPR J NT POI NT 1 
t-2^X 

40 : NEXT 1 . BEEP 1. 
E-T I ME : GOTO S 
0 

50:1F I NKEY$ = 
CHR$ 48LET G=0 
60: 1F POINT 56=8.7 
FLET F=0:U= 

T î riE : GOTO 160 
70 : 1--UAL 1 NKEY$ . 

1F MO0LET G =M 
80: GCURSOR 55. 
GPRINT POINT 5 
5-U 

30: CALL 8.38C6 
100: IF 1NKEY$ = 

CHR^ I1LET Z-Z 
- 1 : GOTO 120 
110:1F INKEY$ =-- 
* CHR$ 10LET Z--Z 

■r 1 

120: N=2 A Zi‘1F (UAND 


POINT 55)=N 
THEN 140 
130. GCURSOR 55. 

CPR INT POINT 5 
5+LU r OR 1 '-0TO 
4*G:NEXT 1. 

GOTO 50 

1 40: U=T 1 ME . tT --- l. 

^OR I--53TO 58. 
to (T -38)--P0I NT 
1 . NEXT 1 

I 50; C ÛR I-1TO 10. 

NAIT 25. BEEP 1 
•GCURSOR 53. 

CPR1NT 0 : D ; 0 , R 
i S,- T : GCURSOR 5 
.3 : D R INT 
NEXT I 

160. CLS . 1F F---0 

UAIT 1 00. P R1 NT 
"Bravo ! " 

.1 70. E = ABS C 1 72 + F*2 
06-CDEG U- DE G 
E)*10000 > . 

CURSOR 10; NA1 T 
: PR J NT "SCORE. 

’ : US I NG 
" , E • END 

180. D'RESTORE . 

P OR 1---8.38C6TO 
8.38EE . READ A. 

POKE I, A: NEXT 
I . uÜTO " " 

1 90: DAT A 106, 1, 190 
, 56, 234, 26, 32, 

1 19, 74, 77, 5, .17 
4, 56, 197, 20, 67 
, 165,-56, 197, 26 
, ?8, 755 

200: DATA 139,2,158 
, 16, 76, 1 17, 137 
, 3, 136, 30, 154, 

70, 158, 28; 165, 

1 18, 0, 24 1, 154 

Programmes 
« Musique » pour 
PC- 1500 avec CE- 
151 et de 
préférence CE- 
150 

Programme «Musique» pour PC 1500 
avec CE 151 et de préférence CE-150 

Ce programme permet d’introduire dans te 
PC- 1500 toute sorte de partition, de les fai- 
re interpréter, et soit de les sauvegarder sur 
cassette, soit d’obtenir une liste de 
« DATA » permettant ensuite de sonoriser 
n’importe quel programme. 

L'introduction de la partition se fera (c’est 
long !) note par note au clavier, (l’utilisation 
de la tablette CE- 153 facilitera le travail) 
toutes les explications ôtant fournies par 
l’ordinateur aux lignes 50000-50030. 


Lorsque toutes les notes sont entrées, 
SHAhP nous donnera sa version de l’œu- 
vre en question. Si quelques notes ne 
conviennent; pas, il sera facile de les corri- 
ger sprès avol r répondu « N » à la question 
« satisfait ? ■» Une fois les notes correcte- 
ment introduites, vous pourrez modifier te 
temps, à chaque modification vous réen- 
tendrez la fvtélôdie à la nouvelle vitesse. 
Quand toût Sera parfait, vous pourrez alors 
enregistrer les données sur cassette (çà 
aussi, c'est lôricj !) ou (et c'est je crois le 
plus utile) én avôir la liste sur papier. 

Bonne musique 
Sharpement vôtre 
C. DUHAMEL 

Explications : 

F (I) contient les fréquences. 

D (I) les durées. 

Je me suis contenté de DIM (100), mais on 
peut faire mieux. 

De 50 à 120, on introduit le nombre de 1/2 
tons séparant la note à jouer de la nqte la 
plus grave (ici le do sous les lignes) : 



- de 130 à 190, on introduit la durée 

- en 200 et 210, on calcule F et D. 

Vous avez certainement remarqué qu'une 
valeur constante de la durée ne donnait 
pas toujours la môme longueur de beep 
(elle dépend également de la fréquence). 

J’ai donc essayé de corriger çà. Mais mes 
calculs ne sont satisfaisants que sur 2 octa- 
ves (celles dans la majeure partie des parti- 
tions suffisent). Si quelqu’un a mieux, je se- 
rais ravi d’en avoir connaissance. 

* Les lignes 300 à 370 permettent la correc- 
tion des notes, 400 à 415 celle de temps. 

* Le reste jusqu'à 500 sauvegarde les don- 
nées obtenues. 

* Le sous-programme 2000 est le même 
qui permet de choisir entre l’écriture et 
t’écoute. 

* Et le sous programme 50.000 donnant les 
explications nécessaires (déjà dit). 

P.S. :Les non-possesseurs de CE-150 
remplaceront bien sûr tous les LPRINT par 
PRINT et devront s’acheter une feuille de 
papier et un bon stylo. 


I : CLEAR :DIM F C i 
00), D ( 1 00 ) * A$= 
60607F0363637 

F" 

5:UIAIT 0: GPRINT 
A$: GCURSOR 21: 
PRINT 

mes Mus i eaux 1 ' * 
GCURSOR 148; 
HAIT 100* 
GPRINT A$: GOTO 
2000 

10:UAIT 10: PRINT 
:: lmpress i on de 
s codes (0/N) " 
20: GOSUB 900 
30: IF R$="0" GOSUB 
50000 

40 : ÎNPUT “TEMPO D 
E LA NOIRE = 

; t 

45: ï=I+l:C=0 
50: PRINT "NOTE No 



* > 1 ) — 

60: R$=1NKEY$ 

70: IF R$="D"LET N 
=0: GOTO 90 
71 : 1F R$="R"LET N 
=2: GOTO 90 
72: IF R$="M"LET N 
=4: GOTO 90 
73: IF R$="F"LET N 
=5: GOTO 90 
74: IF R$="L"LET N 
-9: GOTO 90 
75: IF R$="S"PRINT 
"S": GOTO 80 
77: GOTO. 60 
80: R$=INKEY$ 

82: IF R$="0"LET N 
=7:'G0T0 90 
83: IF R$=" I "LET N 
-11: GOTO 90 
85: GOTO 80 
90: PRINT "ALTERAT 
ION = " 

92: R$=INKEY$ : IF 
<R$< >" ")*(R$< 
>"B")*(R$<>"D" 
)GOTO 92 

95: IF R$="D"LET N 
=N+ 1 

97: IF R$="B"LET N 
-N- 1 

100: PRINT "OCTAUE 

If 

110: R$=INKEY$ : IF 
(R$<>"H" )*<R$< 
>"B" )GOTO 110 
120: IF R$="H"LET N 
-N+ 1 2 

130: PRINT "RYTHME 

_ tr 

140: R$=1NKEY$ : IF 
(ASC R$<48)+( 
ASC R$ >57 ) GOTO 
140 

1 50 : GOSUB (1000+ 
UAL R$) 

160: PRINT 'POINT = 

î; 

170: R$=INKEY$ MF 
(ASC R$< 48 ) + ( 
ASC R$>50)GOTO 
170 

180: IF R$ = " 1 "LET U 
= 0 * 1 . 5 

190: IF R$="2"LET 0 
=0* 1 . 75 

200: F<1 >=215*EXP ( 
06*N) : F( I )= 
INT F ( I ) 

210:D<1)=< 12000000 
/T)/(3.97*F(I ) 
+. 5)*U: D< 1 )= 
INT D( 1 ) 

215: IF C=1LET C=0: 
GOTO 330 

220: BEEP- l,FO>, D( 
I ) 

230: PRINT "D ACCOR 
D ?" 

240: GOSUB 900 
250: IF R$="N"GOTO 


50 

260: PRINT "ENCORE 
? " 

270: GOSUB 900 
280: IF R$="0" GOTO 
45 

285: J=I 

290: FOR 1=1 TO J: 
BEEP 1,F<I),D< 
I ) : NEXT I 

300: PRINT "SATISFA 
IT ? " 

310: GOSUB 900 
320: IF R$="0" GOTO 
400 

325: CLS : BEEP 2: 
CURSOR 8: NAIT 
80: PRINT "Corr 
ect i on" : WA I T 1 
0 : 1=1 

330: BEEP 1, FCI),D( 
I): PRINT "CORR 
ECT ?": GOSUB 9 
00 

335: CLS 

340’: IF R$="0"G0T0 
360 

350: C=l: GOSUB 50 
360: 1 = 1 + 1: IF I > J 
GOTO 290 
370: GOTO 330 
400: PRINT "TEMPO C 
ORRECT ?" : 
GOSUB 900: IF R 
♦="0" GOTO 420 
410: WAI T 100: PRINT 
"ANCIEN TEMPO 
= " ; T : 1 NPU T "NO 
UOEAU TEMPO =" 

;u 

415: FOR 1=1 TO J:D( 
I )=D( 1 >*T/U: 
NEXT 1 : FOR 1 = 1 
TO J : BEEP 1, F( 
I), DU): NEXT I 
: T=U: GOTO 400 
420: INPUT "QUEL ES 
T LE TITRE ?", 
T$: IF LEN Ti>l 
6BEEP 3: PRINT 
"TROP LONG !": 
GOTO 420 

425: WAl T 10:PRINT 
"Dois-je enr*e 9 
istrer ?": 
GOSUB 900: IF R 
$="N".GOTO 460 
430: PRINT "Magnéto 
phone prêt ?": 
GOSUB 900:IF R 
$="N"GOTO 430 
440: PRINT M T$; T$, F 
<*), D<*>, J 
460: PRINT "Dois-je 
imprimer la I 

iste?": GOSUB 9 
00: IF R$="N" 
END 

470: CSIZE l:COLOR 
0: LPftlNT " 
DONNEES PERMET 


TANT DE JOUER: 

" : COLOR 2: 
CSIZE 2: LF 1 
480: LPRINT TAB CCI 
8-LEN Tf)/2)}T 
i : COLOR 0: 
CSIZE 1 

490: FOR 1=1 TO J: 
LPRINT FO);". 
”;DO);".";: 
NEXT I 

500: TEXT :LF 5:EN0 
600: PRINT "Tout -es 
t prêt ?": 
GOSUB 900: IF R 
$="N"GOTO 600 
610: INPUT #T#;T#, F 

(*), □(*), J 
620: FOR I=1T0 J: 

BEEP 1)F(I)|D( 
I ) : NEXT I 

630: PRINT "Uoule2- 
oous la liste 
?": GOSUB 900: 
IF R$="0" GOTO 
470 

640: PRINT "Dois-je 
le rejouer ?" 
: GOSUB 900: IF 
R$="0"G0T0 620 
650 : END 

900:R*=INKEY^ MF 
(R$O"0")*(R$< 
>"N" )GOTO 900 


1000:U=8:RETURN 
100i:U=4:RETURN 
1 002: U.=2: RETURN 
1003: U=1 : RETURN 
1 004 :u=. 66: RETURN 
1005: U=. 50: RETURN 
1006:U=. 33: RETURN 
1007: U=. 25: RETURN 
1008: U=. 166: 
RETURN 


1009: U=. 125: 
RETURN 

2000: CLS : WAI T 10 
0: PRINT "Uou 
lez-vous :": 
PRINT "Recop 
ier une part 
i t i on ou " 


2010:PRINT "jouer 
un air enre 


gistre ?": 
WAl T 10: 
PRINT "recop 


ier=l jouer= 
2 " 

2020 : R*= I NKEY$ : 


IF R$=" 1 


II 


GOTO 10 
2030: 1F R$="2" 
GOTO 600 
2040: GOTO 2020 
50000: TEXT : COLOR 
0: LPRINT TAB 


"Codes pou 
r " : LPRINT "e 


criture mus 
icale" : 



LPR1NT TAB 3 
; "sur PC-15 
00" 

50001: GRAPH : COLOR 
2: LINE <60,0 
) - < 150, 0): 
TEXT : LF 2: 
COLOR 0 

50002: CS 1ZE 3: 

LPR1NT "Note 
s : " : CSIZE 2: 
LPR1NT " DO= 

0 RE=R P1I = 
M": LPRINT " 
FA=F SOL=SO 
LA=L" 

50003: LPRINT- TAB 7 
; "S1=SI " : LF 

1 

50005: CSIZE 3: 

LPRINT "Alte 
►'cit i ons : ■' : 
CSIZE 2: 
LPRINT TAB 2 
; "Becarre=SP 
ACE": LPRINT 
TAB 2; " Die 

50006: LPRINT TAB 2 
i Be mo i =B " 

50010. i_F 1 : CSIZE 3 
LPRINT "Oct 
awes : " . CSIZE 
2: LPRINT TAB 
d; "Bas s e =B" : 
LPRINT TAB 4 
; "Haut e=H" : 
LP 1 

50015: CSIZE 3: 

LPRINT "Ryth 
ones : " : CSIZE 
2: LPR I NT " C 
orree=0 Rond 
e = 1 " : LPRINT 
" B I anch e =2 N 
o I re=3" 

50016: LPRINT " Tri 
o I et no I res = 
4" : LPRINT 
T AB 5 ; " Croch 
e=5" : LPRINT 
"Triolet cro 
che$=6" 

50017: LPRINT "Doub 
•e cr=7 Sext 
=8" : LPR INT " 
Triple cro 
ch e =9" 

50020: LF 1. CSIZE 3 
: LPRINT "Poi 
nts : " : CSIZE 
2: LPRINT "In 
d i quer 0 1 o 
o* 2 * 

50025: GRAPH : COLOR 
2: LINE <60, 0 
)- ( 1 50, 0): 

L 1 NE <80, -2) 
-<130, -2): 
TEXT : LF 5 

50030. RE TURN. 


Graphismes 

Voici des petits programmes graphiques 
amusants : Immortalisez l’heure en l’impri- 
mant graphiquement. 

A ma Sharp à quartz aiguille il était... 

I.S. 


Horloge 




LËJ 

7 _ 

16:22: 16 



300: "H"GRAPH : 

GLCURSOR <105, 
0) : 0=0: SORGN : 
POR J =30 TO 360 
STEP 30: D=D+ 1 : 
G=4 : .1 F D>9LET 
G=1 0 

310: A=SIN j*80:B= 
COS J *80: L J NE 
(A, B)- (A+25, B+ 
25), , , B: 
GLCURSOR < A-G, 
B+7) : LPRI NT D: 
NEXT I: 

GLCURSOR <12, 1 
2) : SORGN 

320: T=TinE *100: S= 
( T- I NT T)*100: 
T- ] NT T/ 100: 11= 

< T- I NT T) *100: 
T-- INT T/100: H= 

< T- 1 NT T) *100 
330: LINE <0, 0)-< 

SIN (360*H/12> 
*45, COS <360*H 
/ 1 2)*45) 

340: LINE <0, 0)-< 
SIN <360*11/60) 
*55, COS <360*n 
/60)*55) 

350: LINE <0, 0)-( 
SIN <360*S/60) 
*61, COS <360*S 
/60)*61) 


360: GLCURSOR <-100 
, -100); TEXT : H 
$=RIGHT$ <"00" 
+ STR$ H, 2) : M$= 
RI GHT$ <"00"+ 
STR$ N, 2) : S$= 
RJGHT* ("00"+ 
STR* S, 2 > 

370: LPRINT H*; " : ; 

N*; " : " ; S* ; END 


N’enviez plus les rosaces de nos belles 
cathédrales gothiques, créez les vôtres du 
triangle à la rosace la plus complexe. 

I.S. 







10: GRAPH : 

GLCURSOR <105, 
0): SORGN : 
INPUT "X?";X: 
Dm A(X), B<X) : 
C=0: FOR I =0TO 
360STEP 360/X 


I 




20: .1 - J +360/X- INT 
(360/X) : A(C) = 
SI N IX80:B(C)= 
COS J*80:C=C+1 
: NEXT I : C=C-2 
30: FOR J-=0TO C-l: 
POR J -= I + 1 T O C: 
UNE (PKI), BCI 
> )-(A(J), B( J) ) 
: NEXT J : NEXT I 
: END 



10: FOR 1-^0 TO 360 
STEP 10: FOR J= 

20TO J20STEP 3 
0: L INE (COS J* 

.105, S J N 1X105) 

-(COS (1+J)XJ0 
5, S J N ( J d)XJ0 
5) 

20: NEXT J: NEXT i: 

COLOR 2 

30: FOR I -0TO 360 
STEP 30: FOR J= 

20TO J20STEP 6 
0 : LINE (COS IX 
30, SIN 1X30)- ( 

COS (I+J )X30, 

SIN d+J)X30) 

40: NEXT J: NEXT I : END 

Grégory Guida. 





Macaron 



Programme surprise. 


f :OATA 0, 0, 23, 24, 23, 22, 23, 24, 2?, 24 
, 2?, 21, 34, 20, 40, 17, 43, 10, 43, 17, 3 
0, J 0, 33 

2* HATA JO, 34, 14, 37, 13, 37, 1 1, 00, 13, 

02, U, 03, 13, 07, 12, 00, 20, 06, 24, 71 
, 22, 70, 20, 77, 23 

3i (1ATA 00,29,01,2* 07,24,9* 21,93, 
21, 99, 23, 99, 23, 103, 29, 107, 31, 107 
, 32, 109, 35, 107,37 
4;0ATA J 04, 35, 10* 37, 101, 43, 97, 40, 
90, 40, 101, 4* 102, 51, 90, 34, 90, 3* 

101.30, 10* 39,97 

Si DATA 01, 97, 03, 93, 01, 93, 00, 92, 30, 
90, 00, 93. 70, 99, 73, 97, 77, 99, 79, 10 
1,70, 103,70,104 

OiDATA 90, 107, 90, 102, 90, 10* 90, 95, 
97, 92, 100, 00, 102, 07, 100, 04, 100, 8 

3, 102,00, 104, 79 

7i DATA J 00, 78, 109, 73, 105, 73, 107, 73 
, MO, 05, 1 14, 04, 1 17, 02, 1 10, 00, 120 
, 52, 1 10, 32, 109, 34 
0i DATA 100,30,10* 30,103,42,104,40 
, 100, 43, 99, 39, 90, 32, 99, 30, 98, 29, 

100.31, 103,27, 102 

9; DATA 24, 194, 23, 97, 27, 90, 27, 92, 29 
, 89, 20, 08, 25, 91, 24, 91, 22, 87, 21, 3 
0, 10, 80, 13, 93 

lOâOAlA 1 1, 93, 10, 90, 8, 92, 3, 90, 1, 90, 
!, 07, 4, 88, 5, 00, 2, 87, 1, 85, 3, 84, I, 
84, 2, 82, 3, 00, 3 

1 1 : RATA 00, 0, 03, 13, 70, 10, 75, 19, 70, 1 
8, 73, 19, 72, 23, 74, 23, 72, 21, 72, 21, 
71,23, 09,21.07 

12; DATA 20, 02, 38, 0* 29, 39, 31, 30. 28, 
54, 32, 32, 35, 4* 35, 43, 32, 4* 29, 91 
,28, 49,28,41 

13: RATA 30, 42, 31, 40, 28, 39, 2* 28, 23, 
24, 9999, 9999 

14; RATA 4, 42, 99, 44, 99, 43, 100, 47, 100 
, 40, 98, 49, 99, 48, 99, 31 , 90, 32, 95, 5 
0, 93, 00, 92, 03 

13:RATA 90,71,89,73,00,70,83,70,73, 
9999, 9999, 23, 72, 27, 73, 30, 73, 16, 7 
3, 40, 72, 44, 73 

10: RATA 30, 70, 31, 78, 33, 80, 39, 78, 63, 
78, 03, 73, 03, 70, 08, 08, 72, 03, 75, 59 
,74,30,7* 31,74 

17; RATA 47, 73, 44, 73, 41, 7* 42. 9999, 9 
999, 34, 43, 33, 40, 30, 39, 4* 38, 4 1, 3 
6, 44, 33, 49, 32 

18; RATA 30, 27, 40, 22, 43, 21, 43, 17, 43, 
*3, 9999, 9999, 0* 20, 01, 2* 79, 20, 7 
3, 31, 02, 33, 79 

19; RATA 34, 78, 38, O* 43, 79, 30, 00, 55, 
83, 30, 04, 33, 87, 37, 87, 93, 89, 39, 90 
, 00 , 92, 30, 93, 00 

20; RATA 93, 02, 97, 03, 102, 02, 103, 03, 1 
82, 02, 97, 03, 97, 03, 93, 03, 90, 00, 99 
99,9999 

1O0;8£AO A;R£AD 0 

MO: CSIZE 2* LF 10; J»0:G8APH ;SO0GN 
113: r mT •’fc'cfr* I l*? r ;E 
117:COSU0 **A r 
MB; GOTO 200 
120; AVREAO X:REA0 Y 
J30;R£A0 UiOEAO H: 'F U-39990R U- 9399 
THEN OETURN 

140; LINE OC8E, V*E>-<U*£,U*£>, 0, J 
143: NAIT O;** IN T U, U 
130» GOTO 130 

2O0»6£A0 C» T«2;*08 I-iTO C 
210»G0SU0 r A r 

220; NEXT I ; LINE <130, 4>-< 130, 01-M30 
* '.4 1 *Ex 1 . 95), 0>- < 1 38»(41*£/ 1 . 93 > 
,3): CSIZE 1 ; LPRINT ' 200 W1 


5: GRAPH : 

GLCURSOR (107, 
-150) : SORGN : 
COLOR 3 


Grégory Guida. 


Obélix 



10* LF 17;GRAPH 

20:6£STOÆ 

23: *08 A-1T0 U 

38;*EAD XsAEAO Y* GLCURSOR C* Y; 
40;t£A0 X:R£A0 Y: IF X-999G0T0 90 
50: UNE -Ot, Y, ; GOTO 40 
90:HEXT A: END 

180: RATA 157, 184, 103, 220, 174, 304, 174 
, 309, 103, 391 

101: RATA 141, 30* 22, 239, * 1 74, 11, 119 

f 22, 1 00 43, 00 

J 02: RATA 49*, 9* 74, 132, 119, 103, 152, 16 
3, 140, 103, 132, 109 

103: OATA 143, 10* 143, 104, 137, 104, 103 
, 19* 103, J 93, 171, 193 
104: OATA 171, 19* 170, 107, 182, 170, 174 
, 174, 102, 17* 191, 170 
103:OATA 193, 171, 193, 163, 10* *57, 206 
, 13* 197, 141,204, 126 
100; OATA 20* 143,213, 133, 19* 139, 109 
, 137, 170, 157 

107; OATA 109, 132, 17* 132, 174, 103, 163 
, 101. 174, 107,999,999 
108; RATA 43, 98, 43, 97, 34, 83, 0* 34, 87, 
3* Ml, 33, 10*24 

109: OATA 68, 27, 10* 27, JO* 43, 07, 43, 0 
* 3* 72. 87. 07. 100 

MO: RATA 10* 119, 124, J02, O* 30, 113, 3 
2, 11*43, M* 20 

Ml: RATA 10* 24, 10* 20, 122, 22, 120, 28 
, 113,20, 10* M 

112; RATA 1 43, 2* 1 32, 33, J 3* 39, 1 22, 20 
,99*999 

11 3: OATA 115,32, 143,91, 122, JM, J 43, 9 
1, 132,31, 13* IM, 134, 113 
114; OATA 12* 130, 130,132, 17* IM, 174 
, 104, 174,07, 130,07 
J 15: OATA 13* 95, 101, 102, 10* JM, 174, 
9* 103,87, 13* 87 

MO: OATA 132, 0* 141, 40, 11* 33, 130, 33 
, 130,54, 10* 07 

1 17; OATA 174, 07, 109, 03, 132, 43, 13* 33 
, 99* 999 

MO; RATA 120, 130, 9* 122, 102, 130, 07, 1 
00, 09, 78, 34, 07, 999, 999 
1 1 9; OATA 87, 33, 93, 24, 8* 24, 70, 30, 74, 
22,67, 11,91. 1* 10* 2* 99* 999 
120: OATA 83, 24, 0* 20, 01, 22, 87, 4, 10* 
4,117,24,99* 999 

121: OATA J 30, 174, 13* 178, 101, 170, 101 
, 10* 152, 10* 132, 174, JS* 171 
122; OATA 14* 137, 137, 142, 139, 124, 100 
, 14* 139, 12* 13* 137 
123: OATA J 74, 10* 13* 10* 99* 999, J69 
, 141, 170, 132 

124: OATA 170, 13* 174, M* 174, 100, 993 
,99* 171, 18* 174, 17* 171, 170,999 
,999 

123; OATA 170, 10* 10* 179, 17* 17* 999 
,999, 107, 107, 169, 109, 171, 107, 174 
, 174,999,999 


Christophe Camus. 
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Courrier 


Lors de l’exécution de l’un des programmes 
précédemment publié dans votre bulletin, 
une erreur est survenue : le curseur cligno- 
tait sur « A(N) ». Pourriez-vous m’expliquer 
cette erreur ? 

M. R. Piron — Villemonble 

Vous savez que la mémoire est repartie en- 
tre variables et lignes basic de programme. 
Ainsi, plus votre programme basic sera im- 
portant, plus le nombre de variables dimi- 
nuera. Ainsi, sachez que de A(n) sera vala- 
ble pour tes N inférieurs au nombre de - 
mémories » affiché après un MEM ajouté 
aux 26 variables de A à Z. 

Etant possesseur d’un PC 121 1 , j’ai récem- 
ment acheté une PC- 1500. J’ai donc été 
amené à transcrire ma logithèque sur PC- 
1211 sur ma nouvelle « merveille ». Cepen- 
dant, la PC-1211 possédait la particularité 
de pouvoir appeler tes mémoires de A à Z 
par tes expressions A(1) à Z (26). 

Cette même manipulation n’est pas possi- 
ble sur mon 1500 (il faut utiliser DIM, et de 
plus, on ne récupère pas dans qe tableau 
oe que l’on avait chargé de A à Z). Com- 
ment dois-je faire pour transcrire ce pro- 
gramme ? 


Mous avons en effet remarqué les défauts 
des rouleaux achetés sur te marché fran- 
çais. Actuellement SHARP est en tractation 
pour acheter au Japon tes rouleaux pour la 
CE- 155. Mous espérons ainsi retrouver 
dans te papier de remplacement la qualité 
du papier d’origine. 


Le « truc » dont vous nous parlez n'est efi- 
cace que pour tes PC-1211 de la « premiè- 
re génération ». En effet, 1e défaut que 
cette astuce exploite a été supprimé pour 
les machines plus récentes. Cependant, il 
existe une autre possibilité. Enregistrez en 
PRO un programme sauvegarde en RE- 
SERVE, 1e résultat vous étonnera... 

Sharpentiers, Sharpentiers 

Je possède une PC-1211, ainsi que l’impri- 
mante. Je désirerais étendre mon système, 
notamment avec une interface VIDEO. 

Une telle extension existe-t-elle ? 

M. P. Dusard 

Vous avez été nombreux à nous poser 
cette question ! 

Voyez l’éditorial. 


Editorial 1211 

Un oubli s 'était glissé dans te der- 
nier bulletin, on auteur navait pas 
été rrrnitiormé, alors Monsieur 
DELCOURT veuillez accepter une 
nouvelle fois nos excuses et enco- 
re merci pour votre programme de 
calcul de bulletin de salaire . 

Une bonne nouvelle, un particulier. 
Monsieur Pierre AUSPI7Z a décidé 
rte concevoir un interface vidéo 
pour la PC 1211 . U aimerait savoir 
si mus Mes vraiment nombreux à 
être intéressés par ceci : Si oui ; 
écrivez-nous Plus vous serez 
nombreux moins cela coûtera cher y 
et une fabrication sera peut-être 
envisagée. 

Dans la série face cachée du PC 
1211 de nouvefles astuces pour 
utiliser en programmation te face 
cachéedeia 1211 „ C'est une appli- 
cation intéressante qui vous per- 
met d'espérer que vous trouverez 
bientôt d'autres trucs. 

En attendant voilà un bulletin 1211 
bien mince ce 

A bientôt 
Luc 8URELLER, 


Je m’appelle Jean-Cyril LAURENT, je fais 
partie du Club PC 1211 depuis Décembre 
81 , date à Jaquette j’ai acheté mon premier 
ordinateur : te SHARP PC 1211 . 

Depuis ce temps, tout ce qui touche cette 
machine me passionne. Aussi te dWb et 
son bulletin représentent beaucoup pout 

Tl O 1 

D’ailleurs, j’ai approfondi tes “ASTUCES'’ 
que vous communiquiez dans te n°3 du 
bulletin = l’apparition du signe curseur 

Tout d’abord, j’ai trouvé un autre procédé 
pour l’obtenir car sur ma machine, celui que 
Monsieur ZUMMER nous donne ne marche 
pas. 

Alors en combinant tout ce que jje savais 
sur tes “dessous du PC-1211'", jjai Obte- 
nu :10 opérations pour la création de ligne 
par programme. (C’est un peu compliqué 
mais absolument efficace). 


N’ayant pas tes moyens de me procurer un 
nouveau magnétophone muni (sic !) d’une 
prise de télécommande, j’ai opéré sans el- 
le ; après avoir entré SAVE, j’ai attendu du- 
rant plus de 20 minutes l’arrêt du 
beep...Sans résultats HELP ME PLEA- 
SEW... 

Vassalo Thierry - Montreuil 

La prise de télécommande que ne possède 
pas votre magnétophone à pour usage de 
stopper l’enregistrement dès que celui-ci 
est terminé. Si vous ne pouvez en profiter, 
W vous faudra stopper votre magnétophone 
manuellement (te compteur de votre appa- 
reil vous sera très utile pour le repérage). 

J’ai essayé d’utiliser le « truc » permettant 
faocès à la rotation hexadécimale du PC- 
1211 (Ligne de Basic que l’on retrouve 
dans tes variables A (204)...) Cependant, 
même si, après un NEW, je retrouve dans 
A (204) toutes sortes de caractères inatten- 
dus (% Y...) ma PC 1211 reste insensible 
à toutes tes manipulations décrites par ce 
truc. Pourriez-vous m’éclairer ? 


J. J. Guittoux, Paris. 
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M. J. Antoine 

Mais si, l’équivalent existe ! Certes, redi- 
mensionner le tableau A ne permet pas de 
récupérer ce que vous avez stocké de A à 
Z, mais comme cela est indiqué (d’accord, 
çà n’est pas très développé, mais c’est 
écrit 1), vous pouvez appeler les mémoires 
de A à Z et A $ à Z$ par G (1) à G 26 et 
àG S (1) à G S (26). 

Ayant récemment acheté une PC 1500, ac- 
compagnée de l’imprimante couleur, j’au- 
rais quelques remarques à formuler : le pa- 
pier d’origine était d’excellente qualité alors 
que tes rouleaux achetés par la suite pré- 
sentaient de gros défauts, ils étaient trop 
courts et recouverts de bandes rouges !! 

Comment remédier à cela ? 


1— Faire NEW 

2 — Affecter à la variable A (203) la valeur 
« habituelle » A (203) = 0,021052101 

3 — En mode PRO inscrire : 10 PRINT (ou 
n'importe quoi d'autre, mais de dépassant 
pas 1 ou 2 pas). 20 END. 

4— Efacer la ligne 20 (20, ENTER). 

5 — Puis en mode RUN, démarrer le pro- 
gramme approprié par l'instruction. 

6 — Après l'affichage de jt, taper MEM, 
ENTER. La mémoire restante apparaît. 

7 — Appuyer 1 fois sur ON. 

8 — Taper sur ENTER ou faire CONT, une 
erreur apparaît (bizarre). 

9 — Retourner en mode PRO après avoir 
appuyé sur CL et appuyer sur une des tou- 
ches de défilement de lignes de program- 
me i ou T . 

La ligne 20 réapparaît malgré te fait que 
l'on ait effacé ceie-b précédemment. 

10 — Enfin, appuyer sur la touche J, et ta li- 
gne 10 « — » apparaît. Ensuite, vous savez 
ce qu'il reste à faire... ( , ENTER). 

Void donc comment j’obtiens le signe cur- 
seur « — ». 

Maintenant, mes découvertes avec ce si- 
gne « Hors-Clavier » ; il constitue une mé- 
moire fixe. 

Vous pouvez, par exemple, vous en servir 
comme variable telle que A,B ou A (150), 
mais aussi de compteur (mais c’est compli- 
qué car dans une même ligne de program- 
me il me semble impossible d'obtenir deux 
fois le signe curseur « — »), ainsi on peut 
trouver dans un programme : 

— 10 : INPUT — 

— 20 : PRINT — 

— 30 ; FOR = 1 to 10. — 

- 40 ; PAUSE 

-50 :NEXT — 

« — » fait donc partie de la famille des mé- 
moires fixes, il n'entre pas dans la mémoire 
souple dite de programme. (Très utile lors- 
que Ton a besoin d'une variable différente 
de ces A (...) trop encombrants !) 

Notez que Ton peut mettre en pratique les 

10 instructions précédentes avec tout un 
programme en mémoire en procédant ain- 
si : 

11 faut donner à la deuxième mémoire sou- 
ple accessible la valeur 0,0221052101 (en 
demandant « MEM » et en ajoutant 25 au 
nombre de « MEMORIES » restant). 

Ensuite, et cela explique 1e 25, taper : 

998= PRINT 

999= END, effacer cette ligne, faire RUN, 
998, etc. 

Un peu plus diffiotele à obtenir, quelquefois 
on obtient : 12 « — ». 

Bref, à partir de cela, on peut considérer 
que le PC-121 1 possède 205 mémoires ac- 
cessibles 

J.C. LAURENT 


Logithèque 1211 

de M. BALAAETTRE Didier 

Attaque nucléaire — jeux 
L’Ile au trésor — jeux 
Q.l. 

de M. BUSCHM Philippe 

Calcul de fréquence (Thomson 
Impédance d'un circuit résonnant série.' 

deM.X 

Ordinateur de bord. 

Le château de TIHP — jeux 
PRINT— unitaire 
DCA — jeux 

de ML DELYS Jean Robert 

Erreur n'est pas comptée. Comparaison de 
prix utie aux ménagères. 





de M. COTILLON 

Calcul d'élément déprimogènes. 

Calcul de soupapes de sûreté. 

de M. MORTIER 

Contrôle des CA 12 

BALISTI de M. FICHANT 
Calcul des dérivés transversales et vertica- 
les d’une balle soumise au verit 

FILTRES de M. Bruart 

Calcul de l'ordre d'un filtre 

PPCMGCD de M. VESIGNOT 

Calcul du PPCM et du PGCDPREMIER 

de M. VESIGNOT 

Calcul du nombre premier 

PT MER de M. ÇHOSSELER 

Calcul des coordonnées géographiques 

POEME de M. VANDEPUTTE 

Création aléatoire de phrases 

BIORYTHM de M. STERMANN 

SHANNGN de M. POINSOT 

Calcdl dediversité de SHANNON 

MASTER MIND de I.S. 

Jeux 

AGENDA de I.S. 

Plannifier les 26 jours à venir 

SIMPLI de I.S. 

Simplification de fractions et recherche de 
fractions à partir d’un nombre 

SECTOR de I.S. 

Jeux 

FACTO de M. PAGLI 

Méthode du STIRLING 

FIX V.1 de I.S. 

Arrondi 

IMPOTS de M. THIBAUT 

Impôts 81 

PUISSANCE de I.S. 

BALL GAME de t.S. 

Jeux 

CONVERSION ANGLOSAXONNE de I.S. 

Conversion des principales mesures anglo- 
saxonnes (livre, mile, gallon, fahrenheit) 

FACTORIEL de I.S. 

(mantisse complète, très long à l’exécution) 

CALCULS PRECIS de M. VESIGNOT 

Multiplication, division, de nombres à plus 
de 44 chiffres significatifs 

de M. J .F. CHAPIN 

NOTEXMO : Notes externes et moyennes 
utiles aux professeurs pour leurs conseils 
de classes. 

WEIGHT : Programme de conversion an- 
glosaxonne sur les poids. 

RELATIF : Emploi des pronoms relatifs en 
anglais 

MCQ REL : Questionnaire sur les pronoms 
relatifs en anglais 

SUPERVI : Verbes irréguliers anglais 

TENSË : Test sur l'emploi des temps en 
anglais 

MEASURE : (en 3 parties) Conversion de 
distance, change, température, longueur, 
volume. 

de M. BOISRAYON 

Cœf BAL : Calcul du coefficient battetigue 
d'une balle- de petit calibre 


BALARM : "Balistiques des armes rayées 
«portatives 

FACTO : Factorielle formule de Stirling 

APPROX : Fraction approximant un réel R 

IMPLICI : Résolution d'une fonction implici- 
te 

WEDINT : Intégration par la méthode De- 
weddle 

RACCAR : Extraction d’une racine carrée 
entrée par la méthode arithmétique 

de M. CHAMPAGNE 

BANQUE : Gestion d’au plus 25 crédits ou 
débits 

de M. BODET 

INVADERS : Jeu 

BAC : Intéressant de savoir si vous l’aurez, 
en fonction de vos notes actuelles. 

de M. DARJO 

CALENDRIER : Imprime le calendrier d'une 
année 

SIMON : Jeu, mémorisation de nombres 

de M. COTILLON 

SOUPAPE : Calculs de soupapes 

de M. MULLOT 

SERVAC : Service achats, commandes sur 
5 mois 

de M. CLOUE 

FONC : Traceur de fonctions (nécessite 
CE 122) 

de M. BARRE 

TRI : Méthode de Shell : 70 données 

0e M. GAY 

MATRICE : Calcul sur la matrice d’ordre X 
(X 8) 

FONCT : Recherche d’une fonction véri- 
fiant des donnés 

de M. TAUZIEDE 

DISTAN : Calcul d’une distance réelle sur 
une planète 

de M. MADEUF 

POLY : Calculs de polynômes 

de M. NOËL 

TOPOGRA : Relèvement italien, méthode 
de POTHENDT 

de M. HAL BARONN 

TUYAU : Calcul de la perte de charge 
d’une tuyauterie l'air de secteur circulaire 

de M. ZUMMER 

POLIDIR : Division des polynômes 

de M. BRÉNAS 

CLEF DE RIB 

de M. PIACENTINO 

Jeu de la boîte noire. 

de M. ZUMMER 

Naval 1 , Naval 2 : Jeu de bataille navale 
Bourse : Jeu de bourse 

de M. BALMETTE Didier 

FLECH : Jeu de fléchettes 

de M. RAMPAL Guy 

SUBROG : Calcul automatique de la tarifi- 
cation de la facture subrogatoire de la Sé- 
curité Sociale 

de M. BODET Pierre 

TENNIS 

MAX : Jeu des chiffres et des lettres 

NAVAL : Jeu de la Bataille navale (contre 
PC 1211) 


de M. VALLY Bruno 
Ql : Calcul du Ql 
PI : Aptitude verbale 

de M. BOUTIN G. 

ASTRO : Astronomie : calculs des équi- 
noxes en coordonnées équatoriales 

de M. GRESSARD J.-M 

TIERCE 

de M. GAY Thierry 

JACKPOT 

de M. AIUI1 Laurent 

STATIS : Statistiques 

deM. CHAPIN J.-F 

CLASS 82 : Gestion des élèves d’une 
classe 

CIRCLAS 

SELCLAS SECL 2 : Utiles à tous les pro- 
fesseurs 

FICH DAT 

STAT DAT 

AGEFICH 

de M. SANTARELU Eric 

JEU DE L’OIE 

JEU DU ROBOT FOU 
PENDU : Jusqu'à 24 lettres 

de M. DELCOURT Alain 

ISOLEMENT 

PROFILES 

PAYE 

de M. MORTIER 

CAI 2 : Destiné aux petits contribuables 
soumis au régime simplifié de la T.V.A. (Im- 
pôts). 

de M. CHAPIN 

Jury bac 
Essay 

Delib-d (variante Jury bac) 

de M. J.L. BECHENNEC 

Astro 1 : position des planètes 
Astro 2 : distances terre soleil 

de M. Pierre MALLER 

Graph — Dessin de fonction 

de M. BOISRAYON 

PERAXO : le programme donne les coor- 
données cartésiennes planes d’une projec- 
tion axonométrique d'un objet spatial défini 
par les coordonnées tridimensionnelles car- 
tésiennes d’un certain nombre de ses 
points. 

PERCEA : Programme donne les coordon- 
nées cartésiennes planes d’une projection 
perspective centrale ou cavalier d'un objet 
spatial défini par les coordonnées carté- 
siennes d'un certain nombre de ses points. 
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PC 1211 


Titre L'ILE AU TRESOR 

Programmeur Didier balmette 


ILE 


numéro E j-i-b paqe'de 3 
date i8-o4-82 cassette n° 


SHARP 
PC -1211 


Description du programme 


est r*pr4c«nt4> par une grille 10x10 d»nt les rangées 
sont repérées par un chiffres de 0 à 9 .Au début de eha< 
a chine cache a l'intérieur de la grille une lie dent el- 
le» coordonnée s .De plus elle Installe en un peint un 
appartient .Le but du Jeu est d’aller sur l*ile appelé 
» » l'aide de vetre navire peur y prendre le trésort des 

Pour cela a chaque tour ^a machine affichera le 
»te qui sont disponible dans la région eù se situe votre 
la difficulté choisi vous aurait de O à 10 vent .Bien sur 
au denné il pourra y avoir q'un nombre réduit de vents « 


La 

et les colonnes 
que partie la n 
1 e vous de 
navlM qui 
1 *ile des ne 


unero des 
vire «Suiv 
peur un nive 


ant 


le m 


A l’aide d'un de ces vents vous vous déplacer d’ 
du vent et d'une seule. 


Lénsque vous aurait atteind l'ile veus aurait gagné, 


Exemple . _ 

— — — ils en 

1 .4 

(abscisse .ordonnée) 

diffioulte 

i 


w r 

vents 

3 2 1 

4 

( sud *B~sud~sud *0— Ouest ) 

position bateau 

7.0 


w 

vent pris 

S4 



nouvelle £es 

6.0 



lie 

1 .4 



bateau 

6.0 



vents 

2 8 3 

6 

7 ( sud -nord-sud. E-est-nodd.O) 

vent 

8 



position 

6.1 



etc . . . 




mode d'emploi 





n 

procédure 

introd. 

press 

affichage 

1 

Introduire le programme ou lire la c 

assette 



2 

Lancer le programme 

RUN 

ENTER 

L ILE AU TRE 
LES VENTS 





INITIAL 

3 

Introduire le générateur 

Z 

ENTER 

DIFFICULTE 

4 

Introduire le degrée de difieulté 

e ou 3 

ENTER 

POSITION DE 




ENTER 

POSITION DU 




ENTER 

VENTS DISPO 




ENTER 

NOUVELLE PO 

5 

Introduire la nouvelle position 

X V Y 

ENTER 

| 

♦UNE SEULE S 
♦GAGNE (6) 



- 


♦retour en 4 

6 




UNE AUTRE 

7 

Introduire 0 peur rejouer 

0 ou N 

ENTER 

♦retour en3 
♦THE END 
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PC 1211 


Titre l»ile au trésor 

Mémoire : 


date i8«o4-82 Page 2 de 3 

Programme : 


n° 

contenue 

A 

vents 

B 


C 


D 


E 


F 


G 


H 


L0 


M 

aux! Itère 

K 

aux! Itère 

00 

"0 ou N * 

P 

■L coerd . 

Q 

boucle 

R 

boucle 

S 

nb veut* 

1 

V 

co, bateau 

v 

ce. ILE 

X 

0 ou 3 

Y 

0 <Y -O 

Z 

Initial 

4 

1 

1 

1 



ref. cassette 
de à 


adr 

touches 

comme taire s 

10 

BEEP 1 (PAUSE "++ + LA ILE AU TRESOR 
+ + + 


20 

PAUSE «LES VENTS SONT DESIGNES " t PAL 
SE "PAR LES CHIFFRES t 


30 

PAUSE "NORD 08 NX )»7 N.E*9" (PAUSE 3 
SU Do 2 S.Ooi S^o^"rPAUSE "OBEST-4 
EST 06 


40 

INPUT "INITIAL "}ZlL0o" ■ 


50 

"0"BEEP 1* INPUT "DIFFICULTE (0 a 3 

)t n tx 


60 

GOSUB 350 1 WoY 


70 

GOSUB 350*Wo¥+.1T 


80 

GOSUB 350 1 VoT 


90 

GOSUB 350lVoV+.1T 


100 

MoINT VlNoINT ¥ 


110 

IF (MoN)+(M-1oN-1 )+(M+1oN+1 ) GOTO 
60 


120 

MoV-INT V t No¥— INT ¥ 


130 

' 

1 

1 

IF (MbN )+(M+.1oN+.1 )+(M-.1 oN-.1 ) 
GOTO 60 


140 

FOR Roi TO 8 »A(R)oO*NEXT R 


150 

GOSUB 360*So 1+INT( (8-2X)z) 


160 

FOR Rsl TO S 


170 

GOSUB 360lT=1+INT(9Z) 


180 

IF Y 05 GOTO 170 


190 

A(R)oYlIF Roi GOTO 225 


200 

Qol 


210 

IF A(R)oA(R-l) GOTO 170 


220 

IF QOR-1 LET QoQ+ 1 iGOTO 210 


225 

NEXT R 


230 

BEEP 1 (PRINT "POSITION DE LAILEt * f U 


240 

BEEP 1 (PRINT "POSITION DU BATEAU/ * ; 
V 


250 

BEEP 1 j PAU SE "VENTS DISPONIBLES"* 
PRINT L0|AjL0*BfL0jC|L0|DjL0*EjL0j 
FjL0,G,L0*F 

i 

260 

INPUT "NOUVELLE POSITION ? »*P 


270 

MoINT P «NoINT V 


280 

IF (M^H+ 1 )+(M^N*1 ) BEEP 1 (PAUSE "U 
NE SEULE CASE* (GOTO 260 

i 

290 

MoP-INT PiNoV-INT V 



partif-io" MEMOIRES oas 
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PC 1211 

Titre l*ile au trésor date 18-04-82 page 3 de 3 

Mémoire : Programme : 


n° 

contenue 


adr 

touches 

commetüines 




300 

IF {*(,>»+ •l)+(K<N-.l) BEEP 
"U RE CASE SEULEMENT" s GOTO 

1 « PAUSE 
260 





310 

IF P<?V 1ET V«P*GOTO 140 






320 

: BEEP 2 t PAUSE "GAGNE 9 L>ILE 
" «INPUT "UNE AUTRE PARTIE 
00s GOTO 00 

EST A YOl 
(0/B)?"| 

s 




330 

■N "BEEP 1 «PAUSE " THE END" «END 





350 

GOSUB 360lY-INT(lOZ) tRRTURM 





360 

Z-Z+ iZ-ZZZZZt Z-Z-INT ZtRETURW 





370 

END 


} 


TIHP « Le château 
de tihp » 

Pour écrire ce programme, je me suis inspi- 
ré d’un article paru dans Jeux et Stratégies 
(pgm écrit pour une TI57). 

PGH 


5* REM "TIHP" 
tOî "-"tCLEAR SD 
=3:E=5:B*lls 
Y=B 

15: 4=<A+n> / '5:A» 

A- INT As G= 

INT <3A+1>:X 

=E*E*D:D*X:Z 

*20: GOTO 45 
20: X=G: Z=25: 

GOTO 45 
25 : B*F 

30SBEEP 1 s JF Y* 

BPAUSE " LA 
PORTE S OUVR 
E ! ! ! "s GOTO 
40 

35: PAUSE " LA P 

ORTE RESISTE 

ni" 

40: PRINT "ROSIT 
ION : PIECE 
N. " i B* Z*B« 

GOTO 55 

45:X*1/X*F:X*X- 
INT Xs IF X*0 
THEN 30 
50: GOTO Z 
55: INPUT "DESTI 
NATION : PIE 
CE N. "IFs Y* 

Fs GOTO 15 

C’est le mystérieux ch&teau de Tihp d’où il 
n’est pas facile de s'échapper I Prisonnier 
vous tentez toutefois pour la Xième fois de 
vous évader. Ce n'est pas si simple. Certai- 
nes portes ont leur « sésame ouvre-toi », 
qu’il vous faudra trouver... Mais, certaines 
autres ne s'ouvrent jamais ! Etes-vous prêt 
& tenter l’aventure ? 


LE JEU : Il commence par la réalisation du 
plan d’un ch&teau. Il pourra comporter un 
nombre quelconque de pièces, que vous 
numéroterez une à une. Tous les nombres 
entiers positifs peuvent être utilisés. La 
case de départ sera notée 1 1 . Vous devrez 
considérer que toutes les pièces adjacen- 
tes sont reliées par des portes. Vous serez 
amené à rencontrer des portes qui s’ou- 
vrent toujours, d’autres jamais et d’autres 
encore qui s’ouvrent... parfois. Les derniè- 
res peuvent d'ailleurs fort bien se refermer 
juste après votre passage et ne plus s'ou- 
vrir. Concrètement pour tenter de passer 


d'une pièce à une autre, en direction de la 
sortie, le joueur devra introduire le nombre 
inscrit dans la pièce dans laquelle if désire 
aller. Pour autant que celle-ci est adjacente 
à celle où il se trouve. Si le joueur est coin- 
cé dans une pièce ou dans une partie du 
château, il pourra tenter de « forcer » des 
portes. C’est-à-dire une nouvelle tentative 
pour aller par une porte qui s'était révélée 
dose. Après plusieurs parties vous parvien- 
drez à saisir la logique de l'ouverture et de 
la fermeture des portes. 

MEM : 1148 STEPS ; 143 MEMORIES. 



j% 1 i fl Us 


lï 


te 




351 


l,o 


Si 


il 


5o 


SC 




n 


si 

TJ 


45 


io 




3 C 


4l 


23 


JS 


A 


A 


IA 


JJ 


AFFICHAGE 

TOUCHES LA PORTE S'OUVRE !!! (pause) 
POSITION : PIECE N° 1 1 
SHFT = DESTINATION : PIECE N° 
ckitcd LA PORTE S’OUVRE !!! (pause) 
23 (Inter) POSITION : PIECE N° 23 
_ ' „ ’ DESTINATION : PIECE N® 
fNJJP . LA PORTE RESISTE !!! (pause) 

42 (Enter) POSITION : PIECE N° 23 

DESTINATION : PIECE N« 

29 (Enter) ^ porte S'OUVRE H! (pause) 
POSITION : PIECE N® 29 

Note : "Faites attention aux oubliettes * 


NOTE 

Position de départ 


La case d’arrivée est la 99*"* pièce, la seule 
qui débouche sur te parc du château. 

THE END. 
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Nouveaux 

Produits 

PC-1251 

- Une nouveauté. 

-Avec le 1500 nous avions été étonnés 
de la prouesse technique des Ingénieurs 
SHARP. Réussir à mettre la puissance d'un 
ordinateur de table dans un ordinateur de 
poche, c'était déjà un bel exploit. Mais avec 
le PC-1251 on se rend compte que l'impos- 
sible n'a pas de limite car la taiBe de cette 
machine est impressionnante. A quand l'or- 
dinateur de poche dans une montre ? 

-Esthétiquement la 1251 surclasse ses 
grandes sœurs. Fini les poches déformées. 
Présenté dans un petit carnet elle est légè- 
re et discrète. (135 x 70 9,5 mm). 

- Le clavier est formé en 3 parties : un 
pavé numérique avec des touches larges et 
le clavier QWERTY, qui possède des tou- 
tes petites touches mais dont l'éloignement 
permet désormais une frappe aussi rapide 
que sur la 1211. 

- L'afficheur est composé de 24 matrices 
5 x 7 et de 8 indicateurs, de plus pour per- 
mettre une lecture sous tous les angles l'in- 
tensité de ce dernier est réglable. Innova- 
tion le changement de mode s'obtient par 
un bouton poussoir. 

- Passons maintenant à la machine elle- 
même ; celle-ci est composée d'une MEM 
de 24 KO et d'une MEM de 4348 octets ré- 
partis ainsi : 

— 308 octets pour les mémoires fixes 
(A, Z, A ,$,Z) 

— 48 octets pour la mémoire réserve 

— 3486 octets pour la zone programme, 
donnée. 

— 606 octets pour la zone système. 

-Ce basic de 1251 allie les avantages 
du 1211 et la puissance du 1500. On peut 
dire que ce basic est ni plus ni moins celui 
du 1500. Mais sans le graphique, « horloge 
et le rafraîchissement de l'affichage », pour 
tout ce basic fait 24 KO et devrait donc être 
plus imposant. Il l’est car il possède beau- 
coup d'instructions inutilisables pour le mo- 
ment. Ainsi on trouve des instructions de 
RS-232 C tels que COM $, SETCOM, INS- 
TAT, OUTSTAT, ERROR, on trouve aussi 
des instructions ouvrant l'accès au langage 
machine (qui d’ailleurs est différent de celui 
du PC-1500) PEEK, POKE, CALL et d'au- 
tres instructions tels que OFF KEY ROM 
C... et O... 

Il s'agit donc d’un basic relativement com- 
plet pour un micro poche ; vous trouverez 
les commandes et instructions plus loin. 

- Cette machine déjà performante voit ses 
possibilités accrues par une interface impri- 
mante micro-cassette d'une taille si réduite 
que la portabilité du système est conservée 
(205 x149 23 mm). L’imprimante est ther- 
mique et imprime 24 caractères par ligne à 
raison de 0,8 lignes par seconde. Situé en 
regard de l'afficheur on contrôle directe- 
ment les sorties de données sur celle-ci. 

- L'interface microcassette sera bien prati- 
que ; fini les problèmes d’incompatibilité de 
magnétophone. Celui-ci est incorporé et 
utilisé des microcassettes TM modèle 
courant en Europe. 

-Notez que la 1251 accepte directement 
soit si vous utilisez des microcassettes en 
plaçant votre cassette dans son magnéto 
soit en branchant votre magnéto sur la pri- 
se d'entrée tous vos programmes pour 
PC 1211. 

- Appartenant à la famille SHARP, la 1251 
se verra dotée à son tour d’un club d'utilisa- 
teurs. 

PC-121 1, PC-1500, PC-1251. A quand le 
PC-1540 ? 


CE 159 

Posséder 8 KoMEV dans un 1500 c'est 
pratique mais si l'on veut avoir plus de 8 Ko 
il faut acquérir l'interface K 7 qui en 
stockant les programmes sur bandes ma- 
gnétiques étend la taille de votre machine. 
Maintenant une autre solution s'offre à 
vous, le CE 159. 

Le CE 159 est une extension mémoire de 
8 Ko (jusqu’ici rien de nouveau) mais on 
peut protéger sur ce dernier ta mémoire par 
pages de 2 Ko.Contenant une pile CR 2032 

le module conservera intact vos program- 
mes même hors du PC 1500 sachant qu’il 
faut environ 10 secondes pour changer de 
modules, on atteint une vitesse de 
6.553,6 bauds. 

Dans la 1500 le module est alimenté par la 
machine eHe-mème et la durée de vie de la 
pilé est alors de 5 ans. Si ce module est re- 
tiré du 1 500, la durée de vie de la pile, donc 
de la conservation de vos programmes, est 
de 2 ans. 

Alors voici un nouveau module mémoire 
qui rendra service à ceux qui veulent déve- 
lopper du logiciel ou bien économiser 
l'achat d'une interface cassette. 


CE 153 

La tablette de logiciel : il s’agit d'un second 
clavier utilisable uniquement par program- 
me comportant 140 touches sensitives. 

Pour être utilisé, il faut changer en mémoire 
un programme en langage machine de 1 
KO. Après l'utilisation de ce nouveau da- 
vier est très aisé. Mais à quoi peut-il bien 
servir ??? 


Tous à vos claviers et vous venez qu'une 
tblette peut être très utile dans certaines 
applications. 


CE 158 

Du nouveau pour la PC-1500. 

- Votre machine va pouvoir aggrandir ses 
connaissances. Désormais le monde exté- 
rieur lui est ouvert grâce au CE 158, la RS- 
232 C que SHARP a conçu. 

- Le RS-232 est une interface série per- 
mettant la transmission de données entre le 
PC-1500 et un périphérique extérieur, stan- 
dard EIA RS 232 C. Pouvant aussi bien se 
brancher sur le 1500 ou sur le CE 150, le 
système conserve son format de poche. 

- Comme presque toutes les interfaces 
SHARP, le CE 158 apporte son BASIC, un 
basic puissant qui fait de cette interface un 
outil performant. Tout est programmable 
par logiciel. 

La vitesse qui peut être de 50, 100, 110, 
200, 300, 600, 1200 OU 2400 bauds. 

La parité paire, impaire ou inexistante. 

La longueur 5. 6, 7 ou 8 bits. 

Le bit d'arrêt (1 ou 2). 

En plus du basic le CE 158 possède dans 
ses mémoires un programme TERMINAL 
qui permet l'utilisation de votre 1500 com- 
me un terminal. Sans programmation vous 

Ç ouvez envoyer et recevoir ds données, 
out était déjà très bien, le série c'est inté* 
ressant, mais la parallèle aussi, alors 
SHARP a inclus en interface parallèle au 
CE 1 58 (prévu pour connecter l'imprimante 
SHARP-CE 332-P). 


C'est à vous de choisir et de créer pour 
cette interface un logiciel performant mais 
les exemples d'utilisation sont nombreux. 

- Jeux : davier utilisé en échiquier ; dépla- 
cer les pièces, le 1500 se chargera du 
reste. 

- Musique : il fera un clavier d’orgue idéal. 

- Gestion : adressage direct d’un article. 

- Scientifique : entrée de données dans 
un ...CALC. 

- Enseignement : apprenez une langue 
utilisant un autre alphabet ou bien reliez 
des dessins ou des mots. 


- Merveilleux petit engin que ce petit boî- 
tier (86 x 115 50 mm) qui, accompagné 
d'un manuel en quatre langues vous initiera 
aux joies de la communication. Notez aussi 
qu'il est fourni dans ce manuel un program- 
me de transmission de données entre le 
MZ 80 B et le PC-1500 et que celui-ci per- 
met de sauvegarder des programmes, le 
1500 sur diskettes (par l'intermédiaire du 
MZ 80 B) et ce, 12 fois plus rapidement 
qu’en employant le CE 150. 

Alors à vos modems, ordinateurs, tables tra- 
çantes ou appareils de mesures et élargis- 
sez le savoir de votre PC-1500. 



EDITORIAL MZ 
Le bulletin 
nouveau est 

arrivé 

llIlIVCiii 

350 adhérents, autant de bulletins 
envoyés, plus de 500 programmes 
et lettres expédiées ; est-ce suffi- 
sant pour excuser le “léger” retard 
dans la parution de notre bulletin 
numéro 2 ? C’est vrai, nous 
n'avions pas escompté un te ! suc- 
cès et avions prévu un peu juste 
quant à l’équipe et aux moyens mis 
en place. L’efferverscence du Sl- 
COB passée, nous avons obtenu, 
de la part de la possibilité 

de doubler, en effectif et en 
moyens matériels, te potentiel de 
l’équipe mise à ta disposition du 
Club ; cela devrait nous permettre 
de résorber le retard actuel du 
courrier avant la fin novembre, et 
de pouvoir répondre dans un délai 
maximum de 15 jours à toute de- 
mande à partir de décembre. 

Autre modification importante: le 
cadeau de bienvenue accordé à 
tout nouvel adhérent a dû être mo- 
difié ; cela pour 2 raisons : la re- 
cherche et l’enregistrement de 5 
programmes à chaque nouvelle 
adhésion prenaient environ 45 mn 
et contribuaient a retarder d'autant 
les réponses aux autres deman- 
des ; l’octroi de ces programmes a 
provoqué une épidémie de multia- 
dhésions pour un même 
MZQusqu’à 11 adhésions pour le 
même appareil !) qui vont à l’en- 
contre de l'esprit qui anime le Club. 
Ces 2 motifs nous ont conduits a 
réduire à 1 programme choisi dans 
ta logithèque le cadeau de bienve- 
nue accordé à tout nouvel adhé- 
rent inscrit depuis le 1.10.82. Ce 
cadeau reste, par contre, renouve- 
lable tous les ans, à la date d'ins- 
cription de l'adhérent. 


QUELQUES PRECISIONS SUR 
LE FONCTIONNEMENT DU 
CLUB. 

* Toute demande de programme 
doit être accompagnée d’une cas- 
satte qui ne doit surtout pas être de 
haute qualité, il est en effet fort 
probable que vous ne receviez pas 
la même cassette en retour. 

* Pour tout programme reçu, l'oc- 
troi de points reste le même que 
celui indiqué dans le bulletin n° 1, 
soit : note donnée au programme 
multipliée par 2.5. 


* H est souhaitable que chaque 
programme envoyé soit accompa- 
gné d’une notice d’utilisation qui 
sera jointe à la cassette contenant 
ce programme ou directement in- 
corporée au programme. 

* Eviter, dans la mesure du poss/- 
bfe, de n’envoyer que ta liste du 
programme ; le recopier prend du 
temps et provoqué inévitablement 
des erreurs qui ne sont pas tou- 
jouts évidentes à trouver dans un 
programme que Ton ne connaît 
pas. 

* La permanence du Club se tien- 
dra dorénavant et définitivement 
tous les mercredis, de 14 à 18 heu- 
res ; les visites ou les coups de té- 
léphone y sont les bienvenus. 

* Tout adhérent peut nous faire 
parvenir un article d’intérêt généra! 
ou traitant d’un sujet particulier étu- 
dié ou mis au point par son auteur. 
Cet article sera édité dans le bulle- 
tin suivant et sera (largement...) ré- 
munéré en points-programmes, 

A la demande de beaucoup d'entre 
vous, nous mettons actuellement 
au point le projet d’une réunion na- 
tionale regroupant en un même 
lieu pour une journée, tous les 
membres du Club MZ. Cette réu- 
nion n’aurait d'intérêt que si une 
grande majorité de MZistes de pro- 
vince acceptaient de faire le dépla- 
cement dans cet unique but. Il 
nous faudrait donc, pour ce projet, 
tous vos avis. MZistes de province, 
veuillez donc nous faire connaître 
votre opinion, avant la fin de Tan- 
née, sur te principe d’une éventuel- 
le rencontre de tous les adhérents 
de France qui se déroulerait vers le 
mois de mars 1983 à Paris ou 
dans sa proche banlieue. Si. ce 
projet recueille suffisamment de 
suffrages, la date et le lieu de cette 
rencontre vous seront communi- 
qués dans le prochain bulletin. 

Vous le constatez, après une inévi- 
table période de rodage, le Club 
commence à prendre sa vitesse de 
croisière. Tout n’est pas encore 
parfait mais nous faisons^ tout ce 
qu’il faut, ne serait-ce que dans la 
présentation de ce bulletin n° 2 
pour rendre aussi parfaite que pos- 
sible la communication entre MZis- 
tes. 


Permettez moi de souhaiter dès 
maintenant de très bonnes fêtes de 
fin d'année ainsi qu'une excellente 
année 1983 à votre vieil ami MZ 
ainsi qu’à vous-même. 


Sylvain Bizoire 


Pour les 
étourdis... 

PRINCIPES ET FONCTIONNEMENT DU 
CLUB : Le Club est ouvert à tout posses- 
seur de MZ 80 K, B, A qui nous fait parvenir 
la demande d'inscription située en dernière 
page, rempli le et signée. 

L'adhésion au Club est totalement gratuite 
et ne donne lieu a aucune obligation ni en- 
gagement d’aucune sorte. 

Chaque adhérent recevra, 4 fois par an, le 
bulletin du Club où seront recensées toutes 
les astuces, suggestions, idées, ainsi que 
les programmes émis par l’ensemble des 
adhérents. 

Pour tout problème particulier, il est égale- 
ment possible à chacun de questionnner 
votre serviteur, soit par courrier, soit par té- 
léphone (le mercredi de 14 à 18 h) ; il fera 
le maximum et mettra, éventuellement, 
l’équipe SHARP a contribution pour tenter 
de vous donner satisfaction. 


ET LE PROGRAMME? La procédure 
concernant les échanges de programmes, 
adoptée après hésitations, répond à 3 ob- 
jectifs : 


1 Posséder des logiciels de qualité en ac- 
cordant une légitime contrepartie aux créa- 
teurs de ces logiciels. 

2 Faire profiter de ces programmes, par 
une répartition équitable, l’ensemble des 
adhérents, permettant ainsi aux MZistes 
débutantsde bénéficier de l'acquis des pro- 
grammeurs chevronnés et de le mettre en 
pratique dans leurs applications futures. 

3 De créer, par le biais de ces échanges, 
un “ESPRIT CLUB”, amical et solidaire, 
trait d’union entre tous ses membres. 

Dans cette optique, nous vous proposons 
les modalités suivantes pour nous envoyer 
ou vous procurer des programmes : 

Chaque programme reçu d’un adhérent se 
verra attribuer un nombre d’étoiles (de 1 à 
10) ; en contrepartie, le concepteur de ce 
logiciel bénéficiera d’un bonus égal à 2,5 
fois le nombre d'étoiles attribuées, qu'il 
pourra utiliser pour puiser dans la logithè- 
que. 

En guise de cadeau de bienvenue, chaque 
adhérent aura à son crédit, dès son inscrip- 
tion, 10 étoiles qui lui permettront d'accéder 
à la logithèque ; les éventuels bonus ga- 
gnés par l’envoi de programmes person- 
nels venant, bien sur, s’ajouter à ce crédit. 
Ce cadeau sera renouvelé tous les ans, à 
la date d’inscription de l’adhérent. 

Pour commander un ou plusieurs program- 
mes de la logithèque. Il suffit d’avoir à son 
crédit un nombre d’étoiles au moins égal au 
total des étoiles demandées pour chaque 
programme commande. 




Super basic... 
suite... 

Bernard KOKANOSKY, seul utilisateur du 
SUPER BASIC à ne pas trouver son BA- 
SIC assez super lui a ajouté “quelques” 
modifications et instructions nouvelles et l’a 
logiquement intitulé SUPER BASIC 2. En 
plus des caractéristiques décrites dans le 
bulletin de juin, la version 2 possède : 

— Les ordres SET, RESET, POINT, 
MOVE, PLOT, HRES qui permettent de 
programmer directement en BASIC la carte 
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haute résolution “QUANTUM MICROS” 
avec une résolution de 200 * 320 points. De 
plus, on obtient, avec H RES les caractères 
“e”, "i" et “a” accentués ainsi que le “c" cé- 
dille. 

- Possibilité d’inversion vidéo. 

- Nombre de boucles FOR...NEXT imbri- 
quées illimité ; cela permet de les utiliser en 
récursivité quelle que soit la profondeur de 
la récursivité. 

- etc. 

Vous étonnerai-je en vous apprenant 
qu’une troisième version de SUPER BASIC 
est à l’étude ? Il s’agit d’une version DCB 
(“Décimal Code Binaire” diraient les puris- 
tes) ; elle permet une plus grande précision 
dans les calculs mathématiques : 

- Calcul sur 13 chiffres-, 

- affichage sur 1 0 chiffres, 

- exposants entre + 99 et - 99, 

- fonctions transcendantes sur 1 5 chiffres 
calculées par le C.O.R.D.I.C. 

- et j’en passp... 

Cette version n’est encore qu’une ébau- 
che ; elle ne verra le jour que si elle inté- 
resse un nombre suffisant d'utilisateurs, le 
travail demandé pour son élaboration étant 
considérable. Matheuses, Matheux, à vos 
plumes, la naissance de SUPER BASIC 
DCB ne dépend que de vous. 

Pourquoi ne pas s’attaquer, dans la foulée, 
à un BASIC existant, le 5025 ?, sitôt dit, si- 
tôt modifié ; le 5025 KOKANOSKI était crée 
et améliorait sensiblement les possibilités 
du SP 5025 original : 

- GOTO et GOSUB peuvent être suivis 
par une expression mathématique (EX : 
GOSUB 2*B+12), sauf pour ON. .GOTO et 
ON. .GOSUB, 

- Idem pour RUN et THEN mais l’expres- 
sion doit commencer par un chiffre, 

- RND est modifié de façon à donner des 
résultats un peu plus aléatoires, 

- L’erreur PRINT 1E+00 donnant 10 est 
corrigée, 

- L’interférence entre Tl$ et LIMIT est 
supprimée, 

- PEEK est débloqué, 

- G ET et INPUT sont corrigés : pluls d’er- 
reur ou de DATA ERROR quand on app 

tape “+” ou à la suite d’un GET ou 
d’un INPUT, 

- RESTORE peut être suivi d’un numéro 
de ligne ou d’une expression mathématique 
si le premier caractère est un chiffre. 

Comme tout bon langage se doit de possé- 
der ses programmes d’application, son au- 
teur nous a fait parvenir une série de plu- 
sieurs exemples d’utilisation, essentielle- 
ment mathématiques, qui vous permettront 
d’acquérir plus rapidement le style de pro- 
grammation SUPER BASIC. 

* Interpolation polynomiale, 

* Calcul sur les séries, 

* Graphes y = f(x), 

* Courbes paramétrées, 

* Courbes de lissajous, 

* Racines de f(x) = 0, 

* Racines de P(x) = 0 (P, polynôme . Ra- 
cines dans C), 

* Etude sur la résolution des équations, 

* Convergence en loi de B(n,p) et P(1) vers 
N(0,1), 

* Illustration de la loi des grands nombres 

(Prob.), * 

* Illustration des fluctuations aléatoires 
(Prob.), 

* Calcul de -ln[1-(a-b)] (Précision multi- 
ple), 

* Calcul des factorielles (exact mais 
long !) (Précision multiple), 

* Calcul de ne (Précision multiple), 

* Tri selon méthode de Shell, 

* Systèmes d’équations non linéaires, 

* Equations différentielles (Méthode de 
RUNGE KUTTA RK 44), 

* Algèbre linéaire, 

* Haute résolution en 3 dimensions 
(Carte QUANÎUM MICROS), 

* Graphes y = f(x) (Carte QUANTUM 
MICROS). 


Chacun de ces programmes coûte 3 
points ; certains d’entre eux sont d’ailleurs 
listés dans la notice qui accompagne cha- 
que cassette SUPER BASIC. 

2 remarques pour terminer : 

— Il existe une version “éditée" de SUPER 
BASIC, c’est-à-dire facilement lisible et 
transformable. Avis aux possesseurs de 
MZ BO A, habitués de l’assembleur, que 
l’adaptation sur leur appareil tenterait... 

- Est-il utile de rappeler que la conception 
de tels programme nécessite une parfaite 
connaissance du microprocesseur Z 80 et 
de son langage, ainsi que de la structure in- 
terne du MZ80 K. Bernard KOKANOSKI 
mérite, à ce titre toute notre admiration et 
notre respect. 


Editeur 

assembleur. 

* 

A la suite de nombreuses demandes, j’ai 
réalisé une traduction résumée de la notice 
des 3 programmes EDITOR ASSEMBLER 
& TEXT EDITOR SP qui permettent de 
programmer directement, dans son propre 
langage, le microprocessur Z 80 qui équipe 
tous les appareils de la série MZ. 

Cette notice est également compatible pour 
les 3 programmes travaillant sous F DOS 
pour le MZ 80 B ; la différence éssentielle 
étant que ces derniers enregistrement sur 
disquette et non sur K7. 

Toutes critiques ou suggestions concernant 
la poursuite éventuelle d’une série 
d’articles sur le langage assembleur des 
différents MZ sont les bienvenues. 

ASSEMBLEUR 

(1) UTILISATION DE L’EDITEUR 
ASSEMBLEUR 

1) Editer le programme ou sous-program- 
me en tapant, en clair, les instructions en 
langage machine du Z 80 et en respectant 
les règles de l’assembleur (voir “COMMAN- 
DES DE L’EDITEUR”). 

2) Assembler le programme composé par 
“PASS 1 ” et corriger les éventuelles erreurs 
d’assemblage (voir MESSAGES D’ER- 
REUR) en retournant à l’éditeur (PASS X). 

3) Enregistrer le ‘Programme assemblé* 
pour liaisons ultérieure éventuelle avec 
d’autre sous-programmes et transformation 
en ‘Programme machine*. 

(2) COMMANDES DE L’ASSEMBLEUR 
PASS 1 : Assemblage du ‘programme 
source* créé avec l’éditeur de texte. 

PASS 2 : Liste du programme assemblé 

sur écran. Peut être interrompue par [SPA- 
CE]. 

PASS 3 : Liste du ‘programme assemblé* 
sur imprimante. 

PASS 4 : Enregistrement du ‘programme 
assemblé*. 

PASS X : Retour à l’éditeur de texte. 

PASS ! : Retour au moniteur. 

GOTO $ 2200 = Retour à l’éditeur. 

GOTO $ 2260 = Retour à l’assembleur. 

(3) DEFINITIONS DU LANGAGE 
ASSEMBLEUR 

LABEL : Titre de 6 lettre maxi qui définit un 
sous-programme, une adresse ou une don- 
née. Doit être placé à chaque fois que l’on 
à besoin d’une référence. 

LABEL : définit un sous-programme. 

LABEL :EQU définit une adresse ou une 
donnée. 

LABEL : ENT définit un sous-programme 
qui peut comprendre plusieurs autres sous- 
programmes ou LABELS. Doit être déclaré 
pour chaque sous-programme édité afin de 
faciliter les liaisons par K7 avec d’autres 
sous-programmes. 


REL : Fait démarrer le programme à 
l'adresse indiquée (à éviter, provoque des 
complications lors des transferts de pro- 

S rammes sur K7). 

€FBn : Donne une valeur à l’adresse ou 
est indiquée l’instruction ; en Hexa (H), Dé- 
cimal (D), ou code ASCII (” 

”).n<255(d),n<FF(H). 1 octet adresse. 
DEFWniV : Idem a DEFB, mais sur 2 oc- 
tets. Ex.: 1200 DEFW 01FOH; 

1200 = FOH, 1201 = 01 H. n^65535(D), 
n^FFFF(H). 

DEF“M” : Définit une “CHAINE” de 64 ca- 
ractères ASCII maxi ; place chaque lettre 
de la “CHAINE” dans les adresses qui sui- 
vent l’instruction. 

DEFSnn’ : Réserve une place mémoire 
égale a nn’ octets pour y placer des don- 
nées. 

SKPn : Laisse un blanc de n lignes dans la 
liste d’assemblage. 

SKPH : Laisse une page blanche. 

END : Termine obligatoirement tout ‘pro- 
gramme source* destiné à être assemblé. 

(4) MESSAGES D’ERREUR DE 
L’ASSEMBLEUR 

E — Indique que le LABEL nommé sur la li- 
gne n’est pas défini dans le programme. 
(Peut l’être dans un autre sous-program- 
me), / 

P — Indique qu’un LABEL:EQU doit être 
placé en début de programme pour pouvoir 
être lié, ensuite, à d’autres sous-program- 
mes, 

C — Caractère illégal ou erreur de syntaxe 
dans l’opérande, 

F — Erreur de format dans l'instruction, 

N — Indique que ENT ou EQU ne sont pas 
accompagnés de leur valeur ou symbole, 

L — Le symbole utilisé dans l'instruction 
n’existe pas dans le programme en cours. 
(Peut exister dans un autre), 

M — Indique qu'un LABEL est utilisé plus 
d’une fois, 

O — Indique une erreur dans l’opérande ou 
l’instruction, 

Q — Indique une erreur d’ortographe ou de 
syntaxe dans l’instruction, 

S — Indique qu’une chaîne de caractères 
n’est pas entourée de ” ” ou ’ ’, 

V — Indique que la valeur de l’opérande 
dépasse les possibilités de l’instruction. 

EDITEUR DE TEXTE 

(1) UTILISATION DE L’EDITEUR DE 
TEXTE 

L’EDITEUR DE TEXTE 

— Met en mémoire tous les caractères 
(“CR” compris) tapés par le programmeur, 
à la suite les uns des autres, 

- Enregistre ou lit un ‘programme source* 

- Permet des corrections à partir de CP 
(compteur de programme) qui est toujours 
placé ENTRE deux caractères. 

LE PROGRAMME SOURCE enregistré 
sôus éditeur n’est UNIQUEMENT utilisable 
que pour un assemblage ultérieur par l’as- 
sembleur. 

UNE LIGNE DE PROGRAMME SOURCE 
comprend obligatoirement tout ou partie 
des éléments suivants : 

LABEL: CODE OPERATION [SPACE] 

ADRESSE OU DONEE [SPACE] ; COM- 
MENTAIRE 

ex : MONIT : JP OOOOH ; Saut mo- 
niteur. 

Bien respecter la ponctuation (:;) et les [ES- 
PACES]. 

COMMANDES DE L’EDITEUR DE • 
TEXTE 

# LECTURE 

R - (+ TITRE) Lit un programme source, le 
place en début de mémoire et place CP en 
tête du programme. 

A - (+ TITRE) Lit un programme source, le 
place après CP préalablement placé à la fin 
du programme précédent. Permet de char- 
ger et de lier plusieurs programme à la sui- 
te. 



# AFFICHAGE 

T - Affiche le contenu de l'éditeur sur écran. 
nT - Affiche n lignes à partir de la position 
de CP. 

# MOUVEMENTS DE CP 

B - CP est placé au début de la mémoire 
éditeur. 

Z * CP est placé à la fin du programme en 
mémoire. 

nJ - CP est placé en tête de la ligne numé- 
rotéé n. 

nL - CP est placé en tête de la n’ em * ligne 
qui suit celle qu’il occupe. 

L - CP est placé en tête de la ligne qu’il oc- 
cupe. 

nM - Déplace CP de n caractères ([space] 
ou [CR]) qui suivent la position qu'il occu- 
pe. 

# MODIFICATIONS 

C - C CHAINES - !— >CHAINE$2 recherche la 
chaîne de caractères CHAINES1 depuis la 
position de CP vers la fin du programme ; 
quand il l’a trouvée, la remplace par CHAI- 
NE$2 ; CP est placé après la nouvelle chaî- 
ne. 

Q-Q CHAINES 1—>CHAINE$2 idem a C 
mais sur toutes les CHAIN E$1 qui suivent 
CP, jusqu’à la fin du programme. CP est 
placé derrière la dernière CHAINES1 rem- 
placée. 

C CHAINES1 ou Q CHAINE$1 efface 
toutes les CHAINE$1 au lieu de les rempla- 

cor* 

I - 1 CHAINES - ! — *[CR] place CHAINES - ! 
après CP. Si pas de [-*] : Nouvelle lign ; 
CP est placé après CHAINES - !. Si [->] 
avant [CRI : Fin de l’instruction l. 
"•UTILISER I POUR L’ENTREE DU TEX- 
TE DANS L’EDITEUR*** 

K • Efface tous les caractères situés après 
CP iusqu’à [CR] qu’il n’efface pas. (fin de li- 
gne) 

nK - Efface tous les caractères situés après 
CP (nK) ou avant CP (-nK), sur n lignes. 
nD - Efface n caractères après CP (nD) ou 
avant CP (-ND), [CR] compris. 

5 - S CHAINES - ! recherche CHAINES - ! à 
partir de la position de CP puis CP se place 
juste derrière CHAINES - !. 

# ENREGISTREMENT 

W - (+ TITRE) écriture d’un *programme 
source* sur K7. 

V - Vérifie l’enregistrement. 

# SPECIAL 

= -Donne le total des caractères 
([SP]&[CR] compris) contenus dans l’édi- 
teur. 

. -Donne le numéro de ligne ou se trouve 
CP. 

6 -Met à 0 toute la mémoire éditeur. 

X -Passe à l’assembleur. 

! -Retour au moniteur. 

GOTOS2200 : Mémoire éditeur vide, 
GOTOS2260 : Programme conservé. 


EDITEUR DE LIENS 
(RELOCATABLE LOADER) ’ 

(1) UTILISATION DE L’EDITEUR DE 
LIENS 

L’éditeur de liens permet de lier plusieurs 
sous *programmes assemblés*, de créer 
une table de symboles commune à tous les 
sous-programmes et d’enregistrer sous for- 
me définitive un programme en langage 
machine directement exécutable à partir du 
moniteur ou d’un ordre BASIC USR. L’édi- 
teur de liens ne permet aucune correction ; 
il enregistre, avec la commande “S”, un * 
programme édité*. 

(2) COMMANDES DE L’EDITEUR DE 
LIENS 

# TITRE 

TBL - Adresse du départ de stockage de la 
table des LABELS. Est demandé dès le 
chargement de l’éditeur de liens, 
ex : f * RELOCATABLE LOADER SP-2301* 

* (Titre de l’éditeur) 

LINK AREA 1 E4C - CFFF (Mémoire dispo- 
nible) 


*TBL BO (La mémoire disponible pour la ta- 
ble des LABELS va de BOOOH à CFFFH 
soit = 8 Koct.) 


# CHARGEMENT 

L - Lecture du programme assemblé + a- 
dresse de chargement dans la surface libre 
indiquée par “LINK AREA”; le tout en 
Hexa. 

ex : *LL 30000 2000 + titre éventuel. 

N - Lecture et liaison d’un second (ou n’*"**) 
‘programme assemblé* avec le (les) pro- 
gramme précédent. 


# COMMANDES 

H - Affiche les adresses Hexa de départ et 
de chargement d’un programme qui succé- 
derait à ceux déjà entrés. (Utile pour “TO?” 
de “S”.) 

T - Affiche le contenu de la table des LA- 
BELS avec les messages correspondants : 
U = Label indéfini (adresse ou donnée) 

M = Label défini 2 ou plusieurs fois, 
(adresse ou donnée) 

X = Labels qui se recoupent ou ont la 
même signification. 

H = Label incomplètement défini (Donnée) 
D = Label qui indique une donnée. N’est 
pas une erreur. 

* -Remet à zéro les valeurs de départ et de 
chargement des programmes, ainsi que le 
contenu de la table des symboles ; sauf 
l’adresse TBL. 


# ENREGISTREMENT 
S - Enregistrement du programme définitif 
(“Programme édité*) 

FROM? : Adresse de chargement du 1 er . * 
Programme assemblé* 

TO? : Adresse de fin du dernier ‘Program- 
me assemblé* (Visible par “H") 

EXECUTE? : Adresse d’éxécution du futur 
“Programme édité*. 

DATA? : Adresse à partir de laquelle sera 
chargé le futur ‘Programme édité*. 
FILENAME? : Titre éventuel. 

“FROM?” et TO?” : concernent l’implanta- 
tion ACTUELLE du programme en mémoi- 
re. 

“ EXECUTE ?" et DATA? : concernent l’im- 
plantation et l'éxécution du futur program- 
me machine. 

V - Vérifie l’enregistrement du programme. 

! - Retour au moniteur 
GOTO$1200 Efface la mémoire program- 
me. 

GOTOS1 260 Conserve le programme. 


CORRECTEUR SYMBOLIQUE 
(SYMBOLIC DEBUGGER) 

(1) UTILISATION DU CORRECTEUR 
SYMBOLIQUE 

Le correcteur permet la correction des er- 
reurs du programme lu en plaçant des 
points d’arrêt (P.A.) qui stoppent l’éxécution 
du programme et placent le contenu de 
tous les registres du Z 80 dans une zone 
mémoire qui peut être lue et corrigée. Le 
programme peut ensuite redémarrer avec 
les corrections effectuées. 

# CHARGEMENT 

L - Charge le ‘Programme assemblé* + a- 
dresse de démarrage du programme + a- 
dresse de chargement (ex : *DL 3500 
3000). Les 2 adresses (Hexa) doivent être 
supérieures à 2COOH + titre éventuel. 

N - Charge le programme suivant qui suc- 
cède et qui est lié au(x) programme(s) pré- 
cécent(s) + titre éventuel. 

# FONCTIONS 

H - Idem à “H” (Editeur de liens) 

T - Idem à “T” (Editeur de liens) 

# - Idem à “*” (Editeur de liens) 

B - Mise en place de 1 ou plusieurs points 
d’arrêt (9 maxi) 

1) Afficher le P.A. par son adresse Hexa ou 
un LABEL ou un LABEL (+)un déplace- 
ment décimal. 


2) Espace. 

3) Afficher le compteur de boucles si le P.A. 
est placé dans une boucle. 

N = 1 si pas de boucle. 

N > 1 et < 14 si le P.A. est placé dans une 
boucle ; le programme s'arrêtera à la bou- 
cle N. 

Pour effacer un P.A., inscrire a nouveau 
son adresse suivie de “0” dans le compteur 
de boucles. 


& - Efface tous les points d’arrêt. 

M - Affiche le contenu d’une zone d’adres- 
ses mémoire, en Hexa, par lignes de B 
adresses, (ex : *DM 3300 - 3500), (ex : * 
DM LABEL1 - LABEL2) ; idem du LABEL1 
au LABEL2. 

Il est possible de corriger un octet de mé- 
moire, comme en BASIC, en utilisant les 
déplacements du curseur. Toute correction 
doit être suivie de [CR]. 

Pour sortir de l'instruction, faire [CR] sur 
une ligne vide. 

D - Affiche une partie de la mémoire pro- 
gramme en Hexa ; chaque ligne indiquant 
le nombre d’octets que comprend l’instruc- 
tion lue. Définition des limites idem à “M”. 
[SPACE] interrompt la liste. [SCHIFT] 
[BREAK] passe à une autre commande. 

W - Permet d’entrer en mémoire des ins- 
tructions en Hexa ou par LABEL. En cas 
d’erreur, taper [SHIFT] [<— ], l’adresse s’affi- 
che de nouveau pour correction. 

G - Exécution du programme. 

* DG 3200 éxécute le programme à partir 
de l’adresse 3200H. 

* DG LABEL idem à partir du LABEL men- 
tionné. 

* DG [CR] idem à partir du P.A. avec le 
contenu des registres corrigés par l’instruc- 
tion “B”. 

I - Indique la valeur de tous les registres du 
Z 80 et demande si c’est OK? ; si OUI -► 
[CR] ; si NON — [SHIFT] [BREAK] et cor- 
rection avec les instructions A, C ou P. 

A - Affiche les registres A, F. 

A - Affiche les registres A, F, B, C, D, E, H, 
L, peuvent être corrigés par déplacement 
du curseur sur la valeur affichée puis cor- 
rection suivie de [Cr]. Pour sortir de l’ins- 
truction, taper [CR] sur une ligne vide. 

C - Idem à “A” avec A’, F', B’, C’, D’, E\ H’, 
L’. 

P - Idem à “A” avec PC, SP, IX, IY, I. 

R - Affiche tous les registres du Z 80 sans 
correction possible. 

X - Déplacement du contenu de la mémoire 
programme. 

FROM? : Début de la zone à transférer. 

To? : Fin de là zone à transférer. 

TOP? : Début de la zone ou va aboutir le 
programme. 


# DIVERS 

S - Enregistre le ‘Programme corrigé* sur 
K7. 

FROM? : Adresse de début du programme 
actuellement en mémoir. 

TO? : Adresse de fin du programme actuel- 
lement en mémoire. 

Ce ‘programme corrigé* peut être chargé 
et utilisé comme un programme machine ; il 
comporte, contrairement au ‘Programme 
édité*, une tablé de symboles. 

V - Vérifie le programme enregistré. 

Y - Lit un programme qui peut être de 3 
sortes : 

1) ‘Programme corrigé* (avec “S”) 

2) ‘Programme édité* (voir EDITEUR DE 
LIENS) 

3) ‘Programme machine* (écrit avec le 
prog “LANGAGE MACHINE” 

# - Liste du programme sur imprimante. 

! - Retour au moniteur. 

GOTO$1200 : Mémoire programme vide. 
GOTOS1260 : Programme conservé. 


Voici terminée la description “brute" des 3 
programmes qlll composent L’ASSEM- 
BLEUR. Mais, au fait, quels sont les avan- 
tages et les inconvénients de l'assem- 
bleur ? 

Un programme écrit en assembleur : 

— Tourne entre 10 et 20 fois plus vite que 
le même programme écrit en BASIC. 

— Occupe environ 5 fois moins de place. 

— Peut s’implanter sur les 48 K disponi- 
bles du MZ. 

— Peut se composer de routines très rapi- 
des appelées par le BASIC (USR). 

Les inconvénients : 

— Nécessite une très bonne connaissance 
du microprocesseur Z 80 (structure interne, 
langage, instructions). Un excellent livre 
traite de ce sujet : “PROGRAMMATION DU 
Z 80” par Rodnay ZAKS aux Editions Sl- 
BEX. 

— Demande de structurer et préparer soi- 
gneusement son programme avant de 
lecrire. En effet, les corrections, si elfes 
existent sont loin d'être aussi aisées qu’en 
BASIC. 


QUELQUES 

BONNES 

ADRESSES 

Afin de remplir vos longues soirées d’hiver, 
voici une liste de bonnes adresses (mémoi- 
res bien sur) du moniteur SP-1002 et du 
BASIC 5025. Vu la prolifération des BA- 
SICS, je me suis cantonné à ce dernier. 
Mais si vous trouvez les adresses corres- 
pondantes chez ses petits frères, ne vous 
gênez pas pour nous les faire parvenir ! 

MUSIQUE 

— ► Tout d’abord, comment ne pas en faire : 
si vous mettez à 0 les octets 8764 et 8765, 
l’éxécution d’un programme BASIC ne re- 
veillera plus vos voisins (retour à la norma- 
le par POKE 8764, 205 : POKE 8765, 48) 

— ► La routine de musique du moniteur est 
située à l’adresse $0030 (48). Si vous l’ap- 
pelez MZ jouera les octets à partir de 
l’adresse contenue dans le registre DE. Le 
codage est le même qu’en BASIC. Le code 
de fin est $OD ou $C8. Si la carry est à 1 
au retour, c’est qu’il y a eu un BREAK. 

-> La routine située en $0041 (65) fixe le 
tempo. Celui-ci doit être mis dans le reqis- 
tre A. 

— ► Le tempo est stocké en complément à 8 
en $1 19E (4510). 

-> Si vous voulez directement contrôler les 
fréquences, la routine qui met en marche le 
synthétiseur est en $0044. La fréquence 
doit être mise en $11 A2 et $11 Al (4514, 
4515) 

— ► Pour arrêter le son la routine est en 
$0047 (71) 

-> Au cas ou vous l’auriez oublié POKE 
4509,0 ($1190) provoque un bip a chaque 
pression de touche. 

CLAVIER 

— ► $45A4 (17828) contient l’ASC du dernier 
caractère entre par GET. Si avant chaque 
G ET, vous remettez cet octet à zéro, plus 
besoin de pianoter : la touche sera prise en 
compte tant qu elle sera enfoncée. 

-+ En $0003 est située la routine d’INPUT, 
les caractères entres sont stockes à 
l’adresse DE. Si l’on tape directement en 
BASIC : USR (3) CR CR puis ?1 + 1, l’effet 
est assez comique. 

— ► En $001B (27) on trouve une routine 
qui met dans l’accumulateur le code ASC 
de la touche enfoncée. 

En $001 E (30) routine qui teste si la 
touche SHIFT BREAK est enfoncée, si 
c’est le cas le blag Z est mis à 1 en retour. 
Si vous faites POKE 6639,24, la routine 
n’est plus appelée et vos programmes BA- 
SIC ne peuvent être interrompu. 


En $09B3 (2483), routine d’attente de 
caractères avec clignotement du curseur. 
Au retour le code est dans le registre A. 

— ► Si l’octet $1170 (4464) est à 0 on passe 
en majuscule. Si il est à 1, on passe en mi- 
nuscule. 

CASSETTE 

En $0021 (33), routine d’écriture de l’in- 
dicatif de fichier 

— ► En $0024 (36), routine d’écriture de fi- 
chier. Tout fichier doit être obligatoirement 
précédé d’un indicatif de fichier. Si par 
exemple, vous voulez copier le BASIC sur 
une autre cassette, vous devez taper tout 
de suite après l’avoir chargé : USR (33) ; 
USR (36). 

— » En $0027 (39), routine de lecture d’indi- 
catif de fichier. 

— » En $002A (42), routine de lecture de fi- 
chier. 

Pour ces quatre routines, les variables sys- 
tèmes sont les mêmes : 

— $10F0 (4336) : type de fichier (1 = MA- 
CHINE, 2 = BASIC) 

— $10F1 à $1100 (4337 - 4353) : nom du 
fichier en ASC suivi de $OD 

— $1 102 & $1 103 (4354 - 4355) : longueur 
en octets 

— $1 104 & $1 105 (4356 - 4357) : adresse 
du premier octet du fichier 

— $1106 & $1107 (4358 - 4359) : adresse 

d’éxécution \ 

— » Avant un SAVE, POKE 10680, 1 protè- 
ge le programme en empêchant les listings 
et les copies. POKE 10682, 1 fait démarer 
les programmes automatiquement. 

ECRAN 

La RAM VIDEO est situé de $D000 à 
$D3E8, entrée libre par PEEK et POKE. 

— > En $E102 (57602), contrôle du tube 
cathodique et de la LED : 

Si l’octet est à 5, l’écran est allumé et la 
diode verte 

Si l’octet est à 4, l’écran est éteint et la dio- 
de verte 

Si l’octet est à 1, l’écran est allumé et la 
diode rouge 

Si l’octet est à 2, l’écran est éteint et la dio- 
de rouge 

— » En $0006, routine de saut de ligne. 

— > En $0012 (18), routine d’affichage d’un 
caractère, l’ASC II doit être dans le registre 
A. 

— > En $0015 (21), routine qui affiche les ca- 
ractères ASCII stockes à l’adresse DE. Le 
code de fin de message est $OD. 

— > En $0DDC (3548), routine chargée des 
effets spéciaux. Elle agit en fonction du 
contenu de l’accumulateur ($Cf = | , 
$C2 = î , $C3 = $C4 = — t $C5 = ho- 

me, $C6 = CLR, $C7 - DEL, $C8 = INS, 
$C9 = SCROLL, $CA = SML, $CB - CR) 

— » L’abcisse du curseur est en $1171 
(4465) et l’ordonnée en $1172 (4466) 

DIVERS 

-*■ L'ordinateur se branche en $1038 
(4152) en cas l’interuption (par exemple 
lorsque l'horloge passe de 
1 2 h 59 min. 59 s. à 1 h 00 00) 

— » En $0033 (51), routine de mise à l’heu- 
re. Celle-ci doit être mise en secondes 
dans le registre DE ; et l’accumulateur doit 
être à 1 si l’on est dans l’après-midi. 

— ► En $003B (59), routine de lecture de 
l’heure, même système. 

^ En $03DA (986), routine qui convertit en 
ASCII le chiffre contenu dans A. Le résultat 
est rangé dans A. 

— ► $03F9 (1017) : routine inverse. 

— » En $0410(1040), routine qui met dans le 
registre HL le nombre hexa décimal stocké 
en ASCII à l’adresse DE. 

— ► La routine située en $041 F (1055) fonc- 
tionne de la même façon mais le résultat 
est rangé dans l’accumulateur. 

— * (3001), routine qui convertit A d’ASCII 
en code d’affichage. 

— ► $OBCE (3022) : le contraire. 

— > Si l’octet $27B7 (10167) est différent de 
0, le PEEK peut aller fouiner ou il veut sans 
retourner 32 dans les zones protégées. 

Simon CHAGNOUX. 




Une affaire club 

50 coffrets “Assembleur” MZ80K/A au prix 
exceptionnel 

Spécial Club de 417,48 F T.T.C. 

au lieu de 605,64 F T.T.C. 

Le coffret assembleur comprend : 

— 1 cassette 
ASSEMBLER SP 2102 
TEXT EDITOR SP 2202. 

RELOCATABLE LOADER SP 2301. 
SYMBOLIC DEBUGGER SP 2401 . 

— 1 manuel d’utilisation ASSEMBLER 

— 1 manuel Z 80 Programing Manual (co- 
des du ZILOG 80) 

N. B. : Toutes ces cassettes et manuels 
sont en anglais. 

Retourner le bon de commande ci-dessous 
à S.B.M./Club SHARPENTIER 151-153, 
avenue Jean-Jaurès 93307 AUBERVIL- 
LIERS. 


NOM : 

Prénoms : 
Adresse : 



Vous commande le coffret assembleur 
MZ 80 TUE au prix exceptionnel Club 
SHARPENTIER de 417,48 F T.T.C. au lieu 
de 605,64 F T.T.C., et vous joins un chè- 
que de ce montant libellé à l’ordre de 
SHARP BUROTYPE MACHINE. 

Je prends bonne note qu’au cas ou ma 
commande ne pourrait être honorée dans 
la limite des stocks immédiatement disponi- 
ble mon chèque me sera intégralement 
remboursé. 


Date 

Signature. 


i 
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MZ 

Quand l’équipe SOFT s’en mêle : Michel 
STERMANN est analyste programmeur au 
sein de l’équipe SOFT de SBM. Nous 
avons pu lui soutirer ce petit programme 
pour MZ 80 A, qui permet de transférer le 
moniteur en RAM, et de transformer le cla- 
vier alphabétique en AZERTY. 

LE FOUINEUR 


**# PROGRAMME-: AZfcKÎ 1 «Il AVK.131 «Ml 
EM» Michel STERMANN #« S.EhM. «« 

1 REM *###»» IMMMMMMMMMMM»»M»#»MMMM*«NMMMMM* 

2 REM ##«MMM*#»MMI#IMMM*»HMMMMM**MN**MM»*»»»»I# 

3 REM **•«#»•#*•#»»#»»#####»»«*###*##*##* 

100 PR INT” g" : GOSUB 1 00 0 0 

110 PRINT" J ’ A I TRANSFERE LE MONITEUR EN- RAMUU" 

1 20 POKE*OBED, *01 ï REM Ot--»A 

130 POKE*OBEE, *1 1 

140 POKE*OC35, *81 «REM q«~»a 

150 POKE*OC36, *91 

160 POKE *0C6E, *3C« REM _>-♦* 

170 P0KE*0C6D,*53 

180 P0KE*0CA3, *46: REM 

190 P0KE*ÛCA6, *70 

200 POKE*OCDE, *C1*REM 0R-» A 

210 POKE*OCDD» SEO 

220 REM 

230 P0KE*0BFt,*17«REM ZE-4W 

240 PQKE*08EC * * 1 A 

250 P0KE*0C39, *97« REM z«-4n 

260 POKE*OC34, *9A 

270 P0KE*0C7U*3BiREM /»--»_ 

280 POKE*OC6C» *76 

290 P0KE*0CA9\ *78* REM NF-» — 

300 P0KE*0CA4,*77 
310 PDKE*OCE 1 » *E2 1 REM Z«~> W 
320 POKE*OCDC, *E5 
330 REM 

340 P0KE«0CU,*2C«REM i F-»M 

330 POKEttOCl 7, *0D 

360 P0KE*0C5F,*BDiREM 

370 PQKE*0C59,*6A 

380 P0KE*0C97,*1C«REM 

390 POKE*OC91 » *42 

400 PDKE*OCCF * * 1 D« REM 

410 P0KE*0CC9, *B3 

800 PRINT ''CLAVIER A7ERTVWr 

900 LIMIT *BFFF « NEW 

1000 I-I + l ïP-PEEK ( I ) 

1010 PRINT IIP, 

1020 IF P< 32 THEN P-112 
1030 PRINT CHR* ( P ) 

1030 GE T Y*i IF Y*»" '* GOTO 1050 
1060 GOTO 1000 
10000 LIMIT *BFOO 

10010 PÜKE *BF00,*3A : REM LD A, (EOOC) 

10020 POKE *BFOt,*OC 

10030 POKE *BF02,*E0 «REM <> E010 

10040 POKE «BF03, «21 s REM LD HL.COOO 

10030 POKE *BF04, *00 

10060 POKE «BF03, *C0 

10070 POKE *BF06,»11 i REM LD DE, 0000 
10080 POKE *BF07, *00 
10090 POKE *BFOB, *00 

10100 POKE *BF09, «01 « REM LD BC, 1000 

1O110 POKE *BFOA, *00 

10120 POKE *BFOB, *10 

10130 POKE *BFOC,*ED «REM LD IR 

10140 POKE *BFOD,*BO 

10130 POKE *BF0E,*C9 : REM RET 

10160 USR < *8FO0 ) 

10900 RETURN 


MEACULPA 


Une grosse erreur s'est glissée dans le pro- 
gramme de copie du BASIC ; il fallait bien 
lire en ligne 60 GETA$ : IFA$ = “"THEN60. 

Ce programme ne peut tourner qu’avec 
64K de ram puisqu’il va copier le BASIC à 
partir de l’adresse $8000, 1 ore adresse de 
la RAM 32K optionnelle. 

Autre omission ; elle concerne le program- 
me de répétition automatique de caractères 
qui ne pouvait tourner qu’avec 64K de 
MEV. Voici ce même programme adapté 
aux possesseurs de MZ équipés de 32K. 

10 FORI = 1T021 : READA : POKE 32735 
+ I, A : NEXTI 

20 FORI = 1TO03 : READA : POKE 2440 
+ I, A NEXTI 
30 END 

40 DATA 237, 91, 3B, 0, 120, 254, 9, 192, 
237, 91 , 6, 0, 6, 0, 1 97, 1 , BO, 0, 1 95, 4, 5 
50 DATE 205, 224, 127 

QUELQUES ADRESSES UTILES 


$0947 POKE $0947, $05 permet de mo- 
difier les valeurs de scrolling (CONSOLE 
S LIGNESUP, LIGNEINF) sans effacer le 
contenu de l’écran. 

$1C10 POKE $1C10, $C9 : POKE 

$1C19, $C9 autorise l’insertion d’instruc- 
tions 'directes’ (ex : LIST) dans un pro- 

f ramme. 

OOAA POKE $OOAA, 0 produit un 
“BIP” à chaque frappe de touche. POKE 
$OOAA, FF rend votre MZ à nouveau 
muet. 

$06DD Vitesse de clignotement du cur- 
seur. < $40 : -i- lent. 

$0725 Vitesse de répétition du déplace- 
ment du curseur (normal - $40). 

$0897 POKE $897, 0 fait monter le scrol- 
ling d’une seule ligne. 

$097C POKE $097C, 0 supprime le 
contrôle anti-rebond du clavier, d’ou répéti- 
tion automatique des caractères. Cette ré- 
pétition, très rapide peut être utilisée dans 
l’élaboration de jeux intéractifs au clavier 
$11 80-1 21 F: Contenu des touches Fl à 
F10. 

(N. B.) Il existe au moins 5 versions de BA- 
SIC 5510 et 3 versions de 6510 ; toutes ces 
versions sont compatibles au niveau logi- 
ciel mais pas du tout au niveau implantation 
mémoire. Il est donc fort probable qu’une 
modification mémoire fonctionne très bien 
sous une certaine version de BASIC et pas 
sous une autre. Nous sommes, par contre 
tranquilles avec le MONITEUR SB 1510 qui 
à l’air universel. 

QUELQUES CODES ASCII MECONNUS 

CHR$ (11) = [BREAK] 

CHR$ (13) = [CR] et [ENT] 

CHR$ (14) = [GRPH] et [SFTLOCK] et 
[CANCEL] 

CHR$ (16) = [Fl], CHR$ (17) = [F2], .... 
CHR$ (25) = [Fl 0] 

CHR$ (26) = [00] 

CHR$ (27) = [T AB] 

Il ne nous manque plus que les codes 28, 
29 et 30... 


AS-TU CES 
ASTUCES ? 

(1) **- Passer sous moniteur 

- Modifier en $239B : E3, 73, 23, 72, 00, 00, 
00 

- Vous pouvez poker maintenant 2 octets 
en même temps. 

ex : POKE $E000, $FF01 donne 

($É000)=01, ($E001)=FF. Très pratique 


lorsqu'on manipule des valeurs de 16 bits. 

(2) 00 N’importe quel argument peut être 
placé après CHR$ 

ex : ?CHR$ (40896/852) donnera “0”. 

(3) 00 Ce petit sous-programme vous per- 
mettra d’afficher toutes vos valeurs numéri- 
ques avec marge à droite et 2 décimales. 
100 INPUT “Votre somme en francs, centi- 

mpc •” A 

1 00 GOSUB 9000 

120 PRINT TAB (10); A; TAB [40-LEN 
(AS)] ; A$ 

130 END 

9000 A = INT (A*100)/100 : A$ = STR$ 

(A) : IF (LEN (A$) = 2) GOTO 0930 

9010 P$ = RIGHT$ (A$,3) : IFLEFT$ 

(P$,1) = "."THEN RETURN 

9020 IF MID$ (P$, 2, 1) = ”.”THENA$ 

= A$ + “0” : RETURN 

9030 A$ = A$ ”.00” : RETURN 

9030 A$ = A$ + ".00” : RETURN 

ex : O 0.00 

0.9 0.90 

999 999.00 

894530,34 , 8945230,34 

(4) ""Autre sous-progranwne qui vous per- 
mettra d’arrondir un réel quelconque au 
nombre de décimales voulu. 

2040 INPUT “REEL A ARRONDIR..?" ; RE 

2050 INPUT "NOMBRE DE DECIMALES A 

RETENIR..?” ; PP 

2060 KK = RE ;GOSUB 2090 

2070 ?“LE RELLE..” ; RE ; “DEVIENT...", 

KK :GOT02000 

2090 P = PP + 1 

2100 IF INT (KK'IOP) - 10*INT [K*10(P- 

1) ]>5 THEN 2120 

2110 KK = [INT (KK*10(P-1))]/10(P-1) : 
GOTO 2130 

2120 KK = (INT (KK*10(P-1))+1)/10Î (P- 
1) 

2130 RETURN 

(5) "* Les quelques lignes qui suivent per- 
mettent aux possesseurs de SEIKOSHA 
GP 1 00 d’effectuer une copie graphique de 
l’écran de leur MZ. Cest possible à condi- 
tion d’avoir introduit, au préalable, les modi- 
fications d’adresse mémoire qui permettent 
d’utiliser l’imprimante avec ses ordres clés 
d’origine. 2 possibilités d’utiliser ce pro- 
gramme : 

1 ) L’introduire à la fin de votre programme 
graphique et faire RUN 9000. 

2) Le charger et le faire tourner après avoir 
mis en mémoire graphique le dessin à co- 
pier. 

9000 FORA = 1T0319 
9010 FORB = 0T06 

9025 IFPOINT (A, B, +C) = 3 THENN 
= N + 10^B 
9030 NEXTB 

9050 IFN = OTHENH = O : GOTO9060 
9055 GOSUB90200 

9060 PRINT/PCHR$ ($B) + CHR$ (H + 
128) ; 

9070 NEXTA 

9080 PRINT/PCHRS (1) 

9090 IFC>192THENEND 
9100 C=C+7 
91 1 0 GOT09000 
9200 Q = 0 : H = 0 
9210 M = 10*INT (N/10) 

9220 P = (N-M)*(2Ô) : N = M/10 : H = H 
+ P : Q = Q + 1 

9230 IFN = OTHENH = INT (H+.2) : RE- 
TURN 

9240 GOTO9210 

(6) ** Cette routine en assembleur permet 
l'écriture directe* sur la RAM écran basse 
résolution du 80B. Pour mémoire {*), cette 
RAM va de $5000 à $RFFF avec 32K de 
MEV, ou de $D000 avec 64K de MEV. 


20 


— Passez sous moniteur et entrez cette 
suite d’instruction avec l’instruction “M” 

C000 F5 : PUSH AF 
COOI E5 : PUSH HL 
C002 DB ; IN A. (E8H) 

C003 EB 

C004 CB : SET 7, A 
C005 FF 

C006 D3 : OUI (E8H),A 
C007 E8 

COOB 2A : LD HL, (CO20H) 

C009 20 
C001 CO 

COOB 3A : LD A, (C022H) 

COOC 22 
COOD CO 
CCOE 77 : LD (HL, A 


COOF DB : IN A,(EBH) 

Cl 00 EB 

C101 CB : RES 7,A 
Cl 02 BF 

Cl 03 D3 : OUT (EBH),A 
C104EB 

C105E1 : POP HL 
Cl 06 Fl : POP AF 
Cl 07 C9 : RET 

Repasser ensuite sous BASIC sans effacer 
la mémoire (J $1280). 

10 POKE $C020, $10 : REM adresse 
basse écran ($DO10, au hasard) 

20 POKE $C021 , $DO : REM adresse 
haute écran 

30 POKE $C022, $31 : REM Code ASCII 
du caractère à afficher. 

11 est également possible, pour gérer cette 
mêmê RAM vidéo, d’appeler les routines- 
moniteur suivantes : 

$OC68 DSPR 

ENTREE : HL = Adresse RAM VIDEO à 
lire. 

SORTIE : A = Code ASCII du caractère lu. 
$OC71 DSPW 

ENTREE : HL = Adresse RAM VIDEO ou 
écrire 

A = Caractère à écrire, 
SORTIE : Affichage du caractère sur 
l’écran. 

$0C87 DWLDIR 

ENTREE : HL = Adresse RAM VIDEO ou 
écrire. 

DE = Adresse du début de la 
chaîne à écrire. 

BC = Longueur de cette chaîne 
SORTIE : Affichage de la chaîne sur 
l’écran, au bon endroit 
$0C56 PNT1 

ENTREE : HL = Coordonnées X, Y. 
SORTIE : HL = Adresse de la RAM VIDEO 
correspondant a X et Y. 

$OC96 DSCL 

ENTREE : HL = Adresse de début de la 
RAM VIDEO a effacer. 

B = Nombre de caractères 
(<255) a effacer. 

SORTIE : Effacement de B caractères sur 
l’écran, au bon endroit. 

Nous n’avons encore, malheureusement, 
pratiquement aucun renseignement concer- 
nant les possibilités d’attaquer directement 
les RAM graphiques. Toute découverte fai- 
te dans ce domaine sera la bienvenue au 
Club. 


Soyez logique ! 
Ou de 

l’utilisation des 

fonctions 

logiques. 

Les fonctions logiques semblent trop sou- 
vent méconnues dans les programmes, 
pourtant elles peuvent être d’une grande 
utilité (clarté, simplification et rapidité d’exé- 
cution). 

Tout d’abord quelques rappels : un opéra- 
teur de comparaison (= 
> < > = < = < >), placé entre deux va- 
riables ou constantes donne un résultat 
simple : 0 si la proposition est fausse, — 1 
si elle est vraie. C’est ainsi que ? 4=4 don- 
ne — 1 , ? 4= 5 donne 0. 

Si A= 2 ? A = 2 donne — 1 et ? A = 3 
donne 0. 

Le résultat (tout comme le résultat d’une 
opération arithmétique) peut être utilisé 
dans différents calculs (ne pas oublier les 
parenthèses, les opérateurs logiques 
n’ayant aucune priorité). 

Afin de n’être pas trop théorique nous vous 
proposons quelques exemples, le champ 
d’applications étant très grand, vous pour- 
rez selon vos besoins en découvrir bien 
d’autres. 

AFFICHAGE : 

Si on veut afficher le score d’un jeu ; ? N ; 
« POINT » ; CHR $ (—115 * (N> 1)) per- 
met en une ligne d’éviter une faute d’ortho- 
graphe. 

AFFICHAGE PARAMETRE : 

Sur un damier un 0 représente une case 
vide, 1 le pion blanc, 2 le pion noir (V = 0 
1 ou 2), on peut donc afficher le caractère 
correspondant par : 

CHR $ (—32 * (V= 0)— 148 * (V= 1) — 
147 * (V= 2). 

DEPLACEMENT D’UN POINT DANS UN 
TABLEAU : 

La variable de déplacement (V) prend par 
exemple la valeur 1 si le point se déplace 
vers le haut, 2 vers la droite, 3 vers le bas 
et 4 vers la gauche. 

On peut remplacer les quatre IF V= THEN 
nécessaires pour le calcul des nouvelles 
coordonnées pour X= X — (V= )2 + (V= 
4) : Y= Y — (V= 3) + (V= 1 ) et le tour est 
joué ! 

SAISIE D’UNE REPONSE (O/N) : 

10 G ET R $ ; ON 1 — (R$= « 0 ») — 2 * (R 
S = « N ») GOTO 10, 20, 30. 

SI R$= « 0 » branchement en 20, si R $ = 
« N » en 30 sinon en 10, élégant n’est-ce 
pas ? 

BRANCHEMENT AVEC TESTS MULTI- 
PLES : 

Dans le même ordre d’idée lorsque le bran- 
chement s’effectue par l’intermédiaire de la 
variable R on aura : 

ON 1 — (R= 1) — 2 * (R= 2) — 3 * (R= 
3) GOTO 100, 200, 300, 400. 

FLAG DE PARITE : 

Si à l’intérieur d’une boucle le flag F doit 
prendre alternativement la valeur 0 ou 1 on 
pourra écrire : F = — (F= 0). L’essayer 
c’est l’adopter ! 

En conclusion, la réflexion apportée sur ces 
tests logiques vous permettra de récupérer 
quelques octets dans les programmes pS 
au passage. Bon courage. 

A propos, si l’imperturbable pavé clignotant 
vous fatigue, changez-le pour un autre si- 
gne, et pourquoi pas par une flèche (code 
ASCII 131) grâce aux deux POKE sui- 
vants : 


POKE $ 06C8, 131 et POKE $ 06D7, 131. 

De même, dans la grande série « simplifiez 
vos programmes », USR ($0517) permet- 
tra une attente d’environ 2 s et USR 
($ 0500) de 4 s en remplacement des bou- 
cles FOR 1= to 3000 : NEXT où rien ne se 
passe. 

M. MILLET MAUREPAS. 

Enquête : 

Les Sharpentiers 
et leur club 

Pour nous permettre de mieux connaître 
vos goûts et vos besoins et de ce fait amé- 
liorer les relations du club avec ses mem- 
bres nous vous remercions de bien vouloir 
nous retourner ce questionnaire dûment 
rempli. 

LE SHARPENTIER 

Nom : 

Prénom : 

Adresse : 

Profession : 

Age : 

Combien possédez-vous de matériels 
SHARP et lesquels ? 

LE BULLETIN 

- Le bulletin vous satisfait-il dans sa nou- 
velle présentation ? 

-Quels sont les rubriques qui vous inté- 
ressent le plus ? 

- Est-il trop technique 

Pas assez technique ? 

- Manque-t-il d’articles d’intérêt général. 
Si oui de quel type ? 

- Désirez-vous voir développer une rubri- 
que Produits SHARP plus importante (pas 
spécialement la micro) ? 

- Désirez- vous des photos, des dessins, 
des exemples ? 

- Des petites annonces ? 

- Vos suggestions ? 


LE CLUB 

- Le fonctionnement du CLUB vous satis- 
fait-il ? 

- Que faire pour l’améliorer ? 

- Accepteriez -vous une participation finan- 
cière (cotisation) permettant de recevoir le 
bulletin et d’acquérir des programmes ? 

- Pourriez-vous participer activement à la 
vie du club ? 

- Etes-vous intéressé par l’idée d’une réu- 
nion générale des SHARPENTIERS à PA- 
RIS ? 

- Pourriez-vous être animateur d’un club 
régional ? 

- Le correspondant du club en province ? 

-Ou seriez-vous intéressé par l’intégra- 
tion des Sharpentiers à des Clubs organi- 
sés du type microtel pour nous permettre 
une bonne couverture nationale ? 


Vos suggestions : 


Date : Signature : 



MZ80K 

CITY 


b T El-' +4 u 


5 TEMPO 7: MUS IC "R0":POKE 18407,0 
10 GQSUB 3800 
28 FOR I =54 1 69 Tu 54286 
38 FOR J=I-40*INTCT*RND<1>> TO I 
4ü PuKE J ? 255 
58 NEXT J , I 

68 FOR I =54208TO54248 : F'OKE 1 , 1 66 : HEXT I 

100 FOR 1=53248 TO 54287 

110 IF F'EEK C I + 1 > =255 GOTO 2808 

120 POKE 1,8 

130 POKE 1+1,199 

135 IF F >4 GOTO 1888 

148 FORK=0TO99: NEXTK 

1 45 GET X$ *• I F X$= " !l THE H X= I +48 : F=5 : USR C 62 ) 

150 N EX T I 

160 PR INT " 13SSSSSESESESB ravo < ‘ 1 11 : GOTO 2800 
1 800 T=PEEK X > : POKE X , 88 
1085 F0RK=8T069: NEXTK 

1018 IF X >54207 THEN F=0:MUSIC h hB" : POKEX, 166: GOTO 145 
1 828 I FT =255THENP0KÈX , 0 : F= I NT C RND < 1 > * 1 8 ) : MUS I C “ CB 1 " : Z=Z+ 1 : GOTO 1 45 
1038 POKEX, 8: X-X+48: GOTO 158 

2800 MUS I C "“C7*D“E“F"G‘“E!“flCDEFGi-lBta.C— D-E-Fi.ii-ft-B " 

2885 F0RP=8T0 1 8 : P0KE57347 , 8 

28 1 8 FORG=0T 099 : NE H T G : P0KE57347 , 1 

20 15 F ORG=0TO99 s NEXTG , F' 

2028 PR INT "HBBBBBBSSSSESEUütre score : " *, Z 

2825 I NF'UT " SSSESSUne a ut- re p a r t i e : " ? R$ : I FR$= " 0 “ THENCLR : GOSUB 3 1 20 : GOT 0 20 
2830 POKE 18407, 184: PR INT "S" 

2840 END 

3008 PR INT "5SSSSS" 

3810 PR I NT TflB(10) 

3028 PR INT TflBC 10) 

3038 PR INT TflB C 1 8 > 

3048 PR INT TflBC 18> 

3845 FOR 1=8 TO 9 
3058 PR INT "OSSSS" 

3068 PR INT TfiBC16>: 

3078 FOR J=0 TO 99 
3875 NEXT J 
3880 PR INT "DBSBS" 

3890 PR I NT THE C 1 6 > ? CH R T C 1 83 > 

3100 FOR J=0 TO 99 
3110 NEXT J,I 

3 1 28 MUS I C " CDfiFECDBCFGDBGDFCGBOGCDGGC " 

3 1 38 PR I NT " OSSSSSSSSSBSSSSESSN i veau de d i f f i eu 1 1- eS8 , B Cl -3 > " : SPC C 48 > 

3140 PR INT" (3BBSSBBSB&B " 

3158 PR INT TflBC 32) ; : INPUT " : " : T 
3160 IF (T< 1 >+CT>3> THEN 3148 
3 1 78 T=T +5 : PR I NT " S " : RETURN 
3240 F'RINT TflB C 25 > : INPUT 
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1 REM ** 48K RAM INDISPENSABLES ** 

3 DATA 265 , 27 , 6 , 56 , 1 34 * 1 35 , 28 1 

4 FOR I =53 1 86T0é3 1 66 : RE ADA : POKE I , A : NEXT 

5 DATA- 1 : MUSIC " A8 " 

16 REM COURSE DE UÙITURES 
28 PRINT"ESS" : E=54848 
38 PR I NTTAB < 6 > ? "Æm> 

48 PR I NTT AB < 6 > » ' W 
58 PR I NTTAB <6 
68 PR I NTT ABC 6 > ? "iSS 
76 PR I NTTAB C6>? 

72 PRINTîPRINTïPRINTîPRINT 
75 GÛSUB28088 

88 U=3: GOSUB5008 
85 T I*=" 000800" 

36 GETR$ : I FRf= " " THEN86 
36 FL=8:PRINT H E ,, 

160 REM INITIALISATION ROUTE VOITURE 
110 D=©:X=20 
128 FORI=0TO24 

1 38 P0KE53248+48* 1+12, 255 : P0KE53248+46+ 1+28,255 

148 NEXTI 

158 POKEE+X, 281 

168 REM CHOIX ALEATOIRE DE LA ROUTE 
170 2=1+INTC9*RNDC7>> 

180 ONZGOTO208, 308, 408, 708, 800, 900, 1080, 1 106, 1280 
280 REM DROITE: A=8 
218 F0RI=1T025 

228 P0KE53268 , 255 : P0KE53276 , 255 
238 GOSUB4808: IFFL=1THEN98 
248 NEXTI 
258 GOTO 170 
388 REM VIRAGES 

310 IN=SGNC . 5-RNDC 1 > >*v.l6: V=8 

32© F0RI=1T096 

33© A=INT<10*SIN<V>> 

348 P0KE53248+ 1 2+ A , 255 : P0KE53248+28+ A , 255 

345 P0KE53248+ 1 3+ A , 255: P0KE53248+27+A, 255 

350 6OSUB4000 :. I FFL= 1 THEN96 

36© V=V+ I N 

376 NEXTI 

388 GOTO 176 

408 REM CHICANES 

41© FORI=1TO10: P0KE53248+12, 255: P0KE53248+28, 255 
42© GOSUB400©: IFFL=1THEN98 
43© NEXTI 
435 PRINT"ir ? 

440 PRINTTÛB(12); "xxxxxxxxxxx y* 1 

450 G0SUB4080: IFFL=1THEN90 

460 FORI=1TO10: P0KE53248+22, 255: P0KE53248+28, 255 
47© GOSUB400©: IFFL=1THEN9© 

48© NEXTI 
485 PRINT"0 M ? 

49© PRINTTABC12>; "xxxxxxxxxxx y" 

50© GOSUB4000 : IFFL=1THEN90 

51© FORI=1TO10: P0KE53248+12, 255: P0KE53248+28, 255 
52© GOSUB400©: IFFL=1THEN98 
530 NEXTI 
535 PRINT"B"; 
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GOSUB4000 : 1 FFL= 1 THEH90 
FOR I = 1 T 05 : P0KE53248+ 1 2 , 255 s P0KE5324S+ 1 
GOSUB4000 : 1 FFL= 1 THEN90 
H EX TI 
PR INT "H"; 

PR I NTT fiB ( 1 2 > ; " * x * >•• >: x * >' >: * >: " 

GOSUB4000 : 1 FFL= 1 THEH90 
FOR I = 1 TO 1 0 : P0KE53248+ 1 2 255 : F0KE53248+ 

GOSUB4000 : 1 FFL= 1 THEN90 
MENT I 
GOTO 17ü 

REM ROUTE GOGOLE 
FÜRI=1TÛ50 

P0KE53248+12? 25 5 : P 0 K E 53 2 4 8 + 2 8 > 255 
GOSUB4000 : 1 FFL= 1 THEH90 
H=IHT'.'.'16+RHD(2>> 

PuKE532'4y+H+ 1 v 166 
P0KE53248+ 1 2 , 255 : P0KE53248+28 * 255 
GOSUB4000 : 1 FFL= 1 THEN90 
MENT I 
GOT 01 70 
REM LIGNE 

PR INT" 13 r.- 

820 P0KE53248+ 1 2 , 255 : P0KE53248+28 , 255 
825 GO S'IJB 4 800 
830 I FRND ( 66 > >0 . 4G0T 08 1 8 
848 GOTO 170 
90£i 0= 1 3+ 1 NT < RND Cn- > : + : 9 ) 

90 1 PQKE5324S+ 1 2 255 : P0KE53248+28 255 
9 10 PR I NT " □ " ? THE: < 0 ;• ; " “■*" " 

915 GOSUB990 
920 PRINTTflB<0>S " k A" 

925 GOSUB990 
930 PRINTThB(O) : 

935 GOSUB990 
940 FRINTTflB(0>; 

945 GOSUB990 
950 PRINTTfiB<0>; 

955 GOSUB990 
960 PRINTThB(Ü>? 

965 GOSUB990 
970 PR I NTTflB ( 0 > ' 

975 GOSUB990 
980 PRINTTRB(0> * 

985 GGSUB990 

986 GOTO 170 

990 PR I NT " 0 " ; : GOSUB400O : P0KE53268 , 255 : P0KE53276 255 : RETURN 
1000 F0RI=1 T08: P0KL53248+12.- 255: P0Rfc.53248+28> 255: GOSUB4800: NEXT 

1005 PR INT "B " 

1010 P0KE53248+ 1 2 , 255 : P0KE5324S+28 , 255 

1 020 P0KE5326 1 +RND 54 ) * 1 5 8 : GOSUB4800 : I F RND < 777 ) < . 8G0T 0 1 885 
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825 

FOR I = 1 T07 : P0KE53 

,• '-f jj i 

030 

GOTO 1 70 


1 00 

0= 1 6 : FOR I = 1 2T0 1 9 
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a □ o a 

120 

0=2 : FOR I = 1 9T 0 1 28 
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130 

NEXT 
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1 58 

GOT 0 1 70 


208 

0= 1 6 : F OR I = 1 2T0 1 8 

: POP 

2l8 

FORJ = 1 T ORND < 88 > + 

50 

220 

FOR I = 1 T ORND C 67 > + 

■1 

1 C‘ 

238 

PORE 532 6 6.i 255: PO 

RE5-: 

248 

NEXT 
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•1260 NEXT: GOTO 170 
4000 REM MOUVEMENT VOITURE 
40 1 0 US R < 53 1 00 > : R$=CHR$ < PEEK 50114 > > : D=G 
4020 I FR$= " ï " THEND= 1 
4030 IFR$=" "THEND 
4040 F'OKEE+X, 0! 

4050 USR 032768 > 

4060 I F < PEEK X+E > < >@ > THEN4080 

4070 POKEE+X , 20 1 : RETURH 

4080 REM VOITURE PERDUE: FORK=0TO5 

4090 POKEE+X , 9 1 : TEMPO 7 : MUS I C M 1 BC " : POKEE+X , 1 08 : MUS I C " DE " 

4100 NEXTK 

4110 GOTO4200 

4140 FL=1 

4150 GOTO4070 

4200 REM FIN DU JEU 

4210 A$=TI$ 

4220 IF VAL < A* > > VAL ( SC $ > THEHSC* = A$ 

4230 print h B asas" 

424U PR INT "Uct re score est- : " “ 

4250 F'RINT"3BBLe record e s t ’SL-Î- 

4260 PR I HT " B3335SST apez une touche pour 
4270 R$="" 

4280 GETR* : I FR* = " " THEN4288 
4290 GOTO 10 

5000 L I M I T32767 : RESTORE5Û40 
50 1 0 FOR I =32768T 032802 
5020 REflDD : POKE I D 
5030 NEXT I : RETURH 
5040 DATA33 , 1 9 1,211 
5050 DAT A 1 7 , 23 1 , 2 1 1 
5060 DATAI , 1 92 ? 3 
5070 DATA 126 
5080 DATAIS 
5090 DATA43 
5100 DATA27 
5110 DATAI 1 
5126 DATA 120 
5130 DATA 177 
5140 DAT A 194, 9, 128 
51 50 DAT A33 , 0 , 208 
516U DATAI , 40 , 0 
5170 DATA54 , 0 
5180 DATA35 
5190 DATAI 1 
5200 DATA 120 
5210 DATAI 77 
5220 pATA 1 94 , 25 , 1 28 
5230 DATA201 
20000 PR INT" 

20082 PR INT" 

20004 PR INT" 

20006 PR INT" 

20008 PR INT" 

20010 PR INT" 

20012 PR INT" 


K 

I 

i 

E 


DEPLACEMENT 


20014 PR INT" 
20016 PR INT" 
20018 RETURN 


S üauche 

I 

I SP 
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MZ80B 

LABY 


0 REM*****)»*)»)»**)» LABY ************** 

0 REM************ Jean Millet ******* 

0 REM******)»)»**** SEPT. 82 ********** 

1 0 G0SUB60000 : PDS I T I DN55 , 54 : FOR I = 1 TD 1 3 : A$= FOR J = 1 T032TREADB : A*=A*+CHR* (B) : NEX 

TJ : PATTERN- 1 6 , A* : NE XT I : FOR I = 1 T08 : BL I NE55 , 54- 1 , 263 , 54- 1 : NE XT 
20 DATA0,3,6,6,6,6,3, 1,0,0,9,21, 19,96,0,0,224, 16, 48, 48, 48, 4B, 24, 0. 128, 128.0,8. 1 

52.240.96.0 

22 DATA3, 4, B, 24, 25, 25, 24, 26, 26, 27, 25, B, 4, 3, 1,0,4,216,112,128,0,16,216,96,48 ,48 
,164,204,24, 48,224,0 

24 DATA0,0, 0, O, 0, 0, O, 0, 0, 0, 0, O, O, 0, 0, 0, 0,0, O, O, O, O, O, O, 0, 0,0, 0,0, O, O, O 

26 DAT AO ,3, 6, 6, 6, 6, 3, 1,0,0,9,21, 19,96,0,0,224, 16,48,48,48,48,24,0, 128, 128,0,8, 1 

52 . 240 . 96 . 0 

28 DAT A8 ,21, 50 ,54,54,22, 14,50,36,8,24,24,24, 12,3,0,24,32, 160,96,96,96,96,96,96, 

96.96. 104. 100. 100. 245. 0 

•30 DAT A2 , 5 , 13, 13, 13,5,9, 1, 1,2,4, 12,22,35, 1,0,32,80, 152, 152, 136, 132,216, 152, 12, 1 

2. 12. 12.8. 16. 224.0 

32 DATA6, 9, 12, 12,6, 12,8, 17,0,0,0,0, 12,6,3,0,48,72,204, 198,198, 198, 134,6, 134,76, 

56.48.96. 192. 128.0 

34 DATA4, 10, 19,51,27, 15, 11,83,35,3,27,39,35,22, 12,0.32,80, 136, 12, 12, 12,8, 16,224 
,96,48,52,50,26,12,0 

36 DATA 12, 19, 17,8,4,0,0', 1,1, 17,40, 12,6,6,3,0, 16,8, 136,240,0,96, 192, 128, 128, 128» 

192.96.48.48.224.0 

38 DATA6, 9,9, 13,5,21,-9, 1, 1, 1, 1,9, 17, 11,6,0, 112,72, 140, 140, 140, 140, 140, 136, 152,1 
52 , 1 52 , 144, 1 4ù , 10,6, O 

40 DATA7 , 11, 16, 18, 12,0,1, 1,0, 0,4, 8, 7, 15, 16,0,226,228,56,32,64, 128, 128, 128, 128.9 

6.96.64. 136.240.224.0 

42 DAT A6 , 11, 17,8,4,5,21,38,36,24,3,4,4,2, 1,0, 16,32, 192,0, 224, 48,24, 24,24,24, 24, 

144.96. 16.224.0 

44 DAT A-»* ,4,8,24, 25 , 25 , 24 , 26 , 26 , 27 , 25 ,8,4,3, 1,0,4,216, 112, 128,0, 16, 216, 96, 48 , 48 
,164,204,24, 48, 224,0 

100 DI MT (21 , 15) , XB ( 10) , XD ( 10) , YH (10) , YB ( 10) , D* (5) : 0=1 : PV=200: PM=50: MM=4s FC==0 
110 F0RI=0T01O: READXG ( I ) : XD < I ) =319-XG ( I ) : YH < i’) =XG-< I ) /I . 6: YB ( I ) =199-XG ( I ) /1.6:NE 
XT: DATAO, 15,55,85, 110, 130, 145, 153, 158, 160, 160 
120 D$(0)=" 0 " :D‘*(1)=" 0 0 ":D»(2)=" Cl 0 0 11 : D* (3) =" 0 0 0 0":D»( 

4 ) = " 0 0 0 0 0“ :D*(5)="ü00 000" 

T 30 F0RI-0T021 : T ( 1 , 0) =9: T< 1 , 15) =9: NEXT: F0RI-1T014: T (0, I ) =9: T (21 , I ) =9:NEXT 
140 G0SUB5000: FQRJ=1T07: F0RI=1TQ10: READT ( I , J) : NEXTI , J : G0SUB5000: F0RJ=1T07: F0RI = 
1 1 T 020 : READT ( I , J ) : NEX T I , J : GDSUB5000 : FOR J =8T0 1 4 s FOR I = 1 TO 1 0 : READT ( I , J ) : NEXT I , J ‘ 

150 G0SUB5000: F0RJ=8TQ14: FOR 1 = 1 1TQ20: READT < I , J) : NEXTI , J: 1 1=4: J 1,1 4: Tl = 10: T (4, 14 
) = 1 : I P= 1 1 : JP= 1 : G0SUB200 : T ( I , J ) =2 : G05LIB20Û : T < I , J ) =4 : I P= 1 : JP= 1 : G0SUB200: T ( I , J ) =3 
160 13=1 : J3=J : G0SUB200 : T ( I , J ) =4 : G0SUB200 : T ( I , J ) =5: IP= 1 1 : JP=8: G08UB200: T ( I , J) =5: 
GOSUB200: T ( I , J ) =4: IP=1 : JP=B: G0SUB200: T ( I , J ) =5: G0SUB200: T ( I , J ) =4: G0T0205 
2b 0 I = I NT ( 1 0*RND ( 1 ) + 1 P ) : J= I NT ( 7 *RND ( 1 ) + JP ) : I FT ( I , J ) < >0THEN200 


202 RETURN 


I" :P 


205 CURS0R7 , 22 :PRINTSTRI NG» ( " B" , 27 > : PRINTTAB (7) ; "! 

RINTTAB<7) ; STRING» ( "B" , 27) 

210 GETR* : ON 1 ~ ( R»= " 0 " ) -2* (R»="N" > G0T021 0,50000, 220 

220 CONSOLEN: GOSUB 10000: CURS0R6, 2: PF: INT "VUE GENERALE DU LABYRINTHE. G0T0810 
300 IFPV<0THEN30000 

305 NV=0 : NF -0 : NT=0 : NS=0 : N=0 : FD=0 : FG=0 : GR APH 1 1 , C , 0 1 : PR I NTCHR* ( 6 ) : CURSOR 1 2 , 0 : PR I N 
T"Pai nts de vie: " ; PV; " " ; CHR* (-129* (V=3) -130* ( V=1 ) -131 * (V=2> -132* (V=4) ) 

310 1 = 1 1+N* <V=4)-N* (V=2) : J=J1+N* (V=l ) -N* ( V=3) : CG=-T ( 1-1 , J ) * (V=l ) -T ( I , J-l ) * (0=2) 
-T (1+1, J) *(V=3)-T( I, J+l) * (V=4) 

320 CD=-T(I+1, J) * (V=1)-T(I, J+l) * (V=2)-T( I— 1 , J) * (V=3)-T(I, J-l) * <V=4> : CF=-T ( I , J-l 
) * <0=1 ) -T < 1 + 1 , J) * (V=2) -T ( I , J + l ) * <V=3) -T ( 1-1 , J) * (V=4) : IFCG=9THEN380 
370 I FFG=OTHENFG= 1 : NG=N 
375 G0T0400 

380 IFFG=1THENLINEXG (NG) , YH (N) ,XG(N) ,YH(N> ,XG(N) , YB ( N ) ,XG(NG) » YB (N) : FG=0 

390 LINEXG(N) , YH (N) , XG <N+1 ) , YH(N+1) , XG (N+l ) , YB (N+l ) , XG (N) , YB (N) ?NG=N+1 

400 I FCD=9THEN420 

410 IFFD=OTHENFD=l:ND=N 

415 G0T0440 

420 IFFD=1THENLINEXD (ND) , YH (N) ,XD(N) , YH ( N ) ,XD(N) , YB (N) ,XD(ND) , YB ( N ) : FD=0 
430 LINEXD (N) , YH <N) , XD (N+l ) , YH (N+l ) , XD (N+l ) , YB (N+l ) , XD (N) , YB (N) :ND=N+1 
440 1FCF=9THENLINEXG (NG) ,YH(N+1> ,XD(ND) , YH(N+1) : LINEXG (NG) ,YB(N+1> ,XD(ND> ,YB(N+ 
1 ) : G0T048O 

450 N=N+1 : IF(CF=3) * (N<6> # (F=0) THEN1000 

455 I FCF =5THENNP=N 

457 IFCFf4THENNV=N 

460 IFCF=2THENNT=N 

465 IFCF=10THENNS=N 

470 I FN< 1 0THEN3 1 0 

480 IF (NT=0) + (NT >5) THEN550 


26 


490 F0RI=lT06-NT:LINE157+NT/2+I , 110, 157+NT/2+I, (YB (NT) +YB (NT+1 ) )/2:NEXT 
495 QNNTG0SUB5 140, 51 30 ,5120, 5110, 51 00 

500 A*=" " ; F0RI=1T032: READA: A*=A*+CHR* (A) : NEXT: POSITION 152, 96: PATTERN- 16, A* 

550 IF <NP=0) + (NP>5) THEN6Q0 

560 A=. B* ( 160-XG (NP) ) : B=. B# ( 160-XG (NP+1 ) > : LINE160-A, YB (NP) , 160-B, YB (NP+1 ) +2, 160 
+B, YB (NP+1 ) +2, 160+A, YB (NP) , 160— A, YB (NP) 

600 IF (NV=0> + (NV>5) THEN700 

650 A= ( 1 60— X G (NV > ) / 1 0 : B= ( YB ( NV ) +YB ( NV+ 1 ) > /2 : C= ( YB < NV ) ~YH ( NV > > /5 : L I NE 1 60-A , B, 160 
, B, 160-A, B-C, 160+A, B-C, 160, B, 160+A, B 
700 I F ( NS=0 ) # < T 1 < > 1 0 ) + ( NS >5 > THENBOO 
710 ÜNVGOSUBBOO , 730 , 720 , 750 : GQTOBOO 

720 A= ( 160-XG (NS+1 ) ) /3: B= (YB (NB+1 ) -YH (NB+1 ) ) * . 3 : L I NE 1 60-A , YB ( NB+ 1 ) , 160-A, YH (NB+ 
1)+B, 160+A, YH( NS+1) +B, 160+A, YB (NS+1 ) : RETURN 
730 A= (YB(NS)-YB (NS+1 > ) /3: B= (XD (NB) -XD (NS+1 ) ) /3: Al- (YB (NS) -YH (NS) > * . 7-. 4# A: A2= ( 
YB (NS+1 )-YH (NS+1) ) *.7+3.4*A 

740 LINEXD (NS) -B, YB (NS) -A, XD (NS) -B, YB (NS) -Al , XD (NB+1 ) +B, YB (NS) -A2, XD (NS+1 ) +B, YB 
(NS+1 )+A: RETURN 

750 A=(YB(NS)-YB (NS+1 ) ) /3: B= (XG (NS+1 ) -XG (NS) ) /3: Al= (YB (NS) -Y.H (NS) ) *.7-. 4*A: A2= ( 
YB ( NS+ 1 ) -YH ( NS+ 1 ) ) *. 7+3. 4*A 

760 L I NEXG ( NS > +B , YB ( NS ) -A , X G ( NS > +B , YB ( NS ) - A 1 , X G ( NS+ 1 ) -B , YB ( NS ) -A2 , XG < NS+ 1 ! - B , YB 
(NS+1 ) +A: RETURN 

800 CF»— T ( 1 1-1, Jl) * (V=4) -T ( 1 1, J 1 + 1 ) * (V=3> -T ( 1 1 + 1 , J 1 ) * (V=2)-T (II, J 1- 1 > * <V=1 ) : F=0 

8 1 O GETR : ONR+ 1 G0TG8 10,810, 830 ,810, 820 , 850 ,840,810,815,810 

815 GDSUB 1 0000 : PV=PV~30: G0T0B.L0 

020 V=V+1 

830 V=V+1 

B40 V-V+ 1 : V=V+4* ( V >4 ) : GDTD300 

850 I F ( T 1 = 1 0 ) * ( FC= 1 ) * ( V=3 ) THEN40000 

860 IFCF=9THENCURS0R16, 20: PRINT"MgUflLSHi" : PV=PV-5: G0T0B10 
870 I FCF=2THENPV=PV+50ï GRAPHC : CURS0R5 , 1 0 : PR I NT 
: G0SUB4600: MM=2: FC=1 : CF=Û : GDSUB 1 0000 : G0SUB4600 : GÜT0900 

880 I FCF=4THENPV=PV+50 : K 1 =3 : RESTdRE 1 1 000 : GOSUB4500 : GOSUB 1 0000 : FOR I = 1 T05000 : NEXT 
s CF=0 : GDT0900 

890 I FCF=5THENPV=F'V- 1 0 : T ( 1 1 , J 1 ) =0 : K 1 =5 : RESTORE 1 1 0 1 0 : G0SUB4500 : I F - 1 - 1 0* ( RND ( 1 ) < . 
5 ) : JP» 1 -7* ( RND ( 1 ) < . 5 ) : GQSUB200 : 1 1 = I : J 1 = J : T ( I , .J ) = 1 : G0TG300 
900 T ( 1 1 , J 1 ) -T 1 : T 1 -CF : 1 1 - 1 1 + < V=4 ) - ( V-2 ) : J 1 = J 1 + ( V= 1 ) - ( V-3 ) : T ( 1 1 ■ J 1 ) = 1 : PV-PV-2 : FM 
=FM+ 1 : I FFM< MMTHEN300 

915 T ( 13, J3> =-T3# <T3< >1 ) : 13=13- ( 1 1 >13) + ( 1 1< 13) : J3=J3- (Jl >J3) + ( J 1 < J 3 ) : T3=T ( 13, J3 
) : T ( 13, J3) =3: FM=0 

920 IFT3=1THENGRAPHC: PRINTCHR* (6) ; "Le moi .Etre du. L.ABY vous a saute dessus" :N=—1 
: T 1=0: GOTO 1020 
930 GDT0300 

1000 PRINTCHR* (6) j " Le monstre du LABY est a";N+lî" case" ; CHR* (-1 15# (N>0) ) : PRIN 
TTAB (4) ; "et possédé" 5 PM î " points de vie" s GQSUB4600: GRAPHC 
1 0 10 I F34RND ( 1 ) < 1 THENK 1=2: RESTORE 1 1 020 : GQSUB45 1 0 : G0SIJB4600 : F = 1 : G0T0300 
1 020 CURSOR 10,1 0 : PR INT" ■«■raaff TBltlsMWPB 1 " : GGSLIB46UU: D=INT (6*FlND ( 1 ) ) : F’RINT s F’F;I 

NTTAB (3) ; " ET FAIT UN" üD+lü" AVEC LE DE " : G0SUB4400: G0SUB4600 

1030 CURS0R3, 12: PR INT "Cela vous •coûte"; <D+1 ) *2# <6-N) ; " points de vie" : PV=PV- (D+ 
1 ) *2* (6— N) : G0SUB4600: I FPV< 0THEN30000 

1 040 CURSOR 1 0 ,10: PR INT" ■fMPiftlia» i] 3» ( il! 1 3 3B " ; CURS0R3 ,12: PR I NT " ■■aMiamiiaKMfl nil 


N 


1050 GETR: IFR= 1 THENF'R INT: F'R INT "Tapez sur une des directions (2 4 OU 6) " : F'RINT"Le 
5 vous rapproche du monstre. GQT0310 
1 060 I FR< >3THEN 1 050 

1 070 CURS0R3 , 1 2 : PR I NT " «fl ils UM JfcJi S»H1 ZM «fl ÎM a Jl * ^ il 3Ü ' ' 

1 p80 GETR : D=D+ 1 : G0SUB4400 : I FR< >7 TH EN 1 080 

1Ô90 G05UB440C: G0SUB4600: CURSOR3, 12: PR INT "Le monstre perd"; (D+l ) *4* (6-N) ; " poin 
ts de vie : pm»PM- <D+1 ) *4* <6~N> : G0SUB4600: IFPM>0THEN1000 

I 1 1 OO PR I NTCHR* ( 6 ) : CURSOR 14,5: |< :l =4 : RESTORE 1 1 030 : G0SUB45 1 0 : T ( 1 3 , J 3 ) =T3 : I P= 1 : J P=B : 
G0SUB200: T ( I , J ) =3: 13=1 : J3=J : T3=0: PM=50: G0T0300 

4400 D=D-INT (D/6) *6: CURSOR 15, 19: PRINT" , , " : FOR I =0T02 : PR I NTT AB (15) j " I" ; MID* (D* 

(D) ,3*1 + 1, 3) 5 " I ":NEXT:F'RINTTAB(15) ; " 1 J " : RETURN 

4500 PR I NTCHR* ( 6 ) : GRAPHC 

4510 F0RK=1T0K1 s READA*: PR I NTTAB (20-L.EN (A*) /2) ; A*:PRINT: F0RL=1T01000: NbXTL , K 
4600 F0RL=1T03000: NEXTL: RETURN 

5000 0N84RND ( 1 ) + 1 G0T050 1 0 , 50 11,5012, 50 1 3 , 50 1 4 , 50.1 5 , 50 1 6 , 50 1 7 

5010 RESTQRE5030: RETURN 

5011 REST0RE5031: RETURN 

5012 REST0RE5032: RETURN 

5013 RESTDRE5033: RETIJFÏN 

5014 REST0RE5034: RETURN 

5015 REST0RE5035: RETURN 

50 1 6 RESTQRE5036 : RETURN 

50 1 7 REST0RE5037 : RETURN 


5030 

DATA9, 

9, 

9s 

Os 9s 9s 9s 

0 s 

9s 

9s 9, Os 

Os 

Os 

O 

* n 

Os 

9s Os 

0 S 0 S 

9 s 

0 s 

9, 

9, 

Os 

0 s 

Os 

9, 

9s 

0 S 

0 s 

0 s 0 S 

0, 

Os 

9s O, Os 

9,0,9, 

Os 

9, 

9 s 0 s 9 s 0 s 

9s 

9s 

0 , 9 s 0 s 

0 s 

0 S 

Os 

9, 

0 s 0 , 

0 s 0 s 

9s 

0, 

9, 

Os 

9s 

9, 

9 s 

O, 

9, 

9 



9, 

9, 

5031 

DATA9, 

9s 

9s 

0 s 9 s 9 s 9 , 

Os 

9s 

9 , 9 , 0 s 

9s 

0 s 

Os 

0 s 

9 s 0 s 

9 , Os 

9, 

Os 

0, 

0 ? 

9, 

Os 

Os 

Os 

Os 

Os 

Os 

0 s 9 , 

0,9,9, 

9,0,9, 

9, 

9s 

Os Os Os 9, 

Os 

9s 

0 s 9 s 0 s 

9, 

0 !I 

9, 

9, 

9s Os 

0 s 0 s 

9s 

0 s 

Os 

0 S 

9s 

Os 

Os 

Os 

9, 

0 





5032 

DATA9, 

9s 

9 s 

O, 9, 9, 9s 

Os 

9s 

9 s 9 s 0 s 

0 s 

Os 

Os 

Os 

0 S 0 s 

0 s 0 s 

9, 

0, 

9, 

9s 

9s 

0 s 

9, 

9s 

O 

* !■ 

Os 

Os 

0 s 9 , 

0 s 

9, 

Os 9s Os 

9,0,9, 

Os 

9s 

0 * 9 s 0 s 9 s 

Os 

9 s 

{ J s 9 s O s 

9s 

Os 

9, 

?s 

9s Os 

9 s 0 s 

9s 

Os 

O, 

Os 

Os 

Os 

Os 

0 s 

Os 

0 






27 



C .V T 

JÜOO 

DATA9 , 

9, 9, 

0 , 9 

f"l 

fl 7 i 

rv 

t 


U , 9 , 9 


9, 

9 ;i 

9 , 0 

<1 

0, 

0 

fl 

o 

fi 

0, 

o 

, U , 

9, 

0 


0, 

9, 

9, 

9, 

9, 

9, 

9, 

0 , 0 , 

0 , 

9, 

0 

fl 

0 

fl 

0 

, 0 , 0 J 

0 , 0 , 9 , 

0, 9 , 

0 , 9 

, 9 H 

9 

i» 

9 << 9 , 9 

fl 

9, 

0 , 

9 * 0 

fl 

Ci , 

Q 

fl 

0 

fl 

0, 

n 

‘T 

, Ci , 

9, 

0 


0, 

0, 

9, 

0, 

9, 

0, 

0, 

0 








5034 

DAT A9 , 

9, 9, 

0 , 9 

, 9 , 

Q 

t 

fi 

0 , 9 , 9 

n 

9, 

0, 

0 , 0 

fl 

0 , 

o 


o 

fl 

0, 

o 

, 0 , 

9 4 

0 


9, 

9, 

0, 

^ 4 

1 *1 

9, 

9, 

9, 

0 , 0 -i 

o, 

9, 

Q 

t 

fl 

0 

fl 

9 

, 0 , 0 ? 

0 , 0 , 9 , 

9 , 0 , 

0 , 0 

, 9, 

0 

ft 

9 , 0 , 9 

fl 

9, 

0, 

0 4 9 

fl 

Ci , 

9 

fî 

o 

fl 

9, 

Q 

, U ;i 

9, 

9 


9, 

0, 

o , 

fl 

‘7 !» 

0, 

'0 , 

9, 

9 








5035 

DATA9, 

O , Q _ 

* fl * fl 

0 , 9 

, 9 H 

Q 

i 


0 ,9,9 

5 

9, 

0 , 

0 , 0 

fl 

9, 

0 

fl 

Q 

1 

fl 

0, 

Q 

r 

? 0 , 

9, 

0 


9, 

Q 
■ 3 

9, 

0, 

9, 

0, 

9, 

0 , 0 , 

0, 

0 , 

0 

fl 

0 

fl 

0 

> U il O , 

9 , 0 , 9 , 

•0 , 0 <1 

Ci , 9 

- o, 

r\ 

7 

% 

0, 0, 0 

5 

9, 

Ci , 

9,9 

H 

9, 

0 

fl 

9 

H 

9, 

0 

,9, 

9, 

0 


9, 

0, 

0, 

0, 

9, 

0, 

0, 

9 








5036 

DATA9, 

9,9, 

Pi Q 
L- fi / 

N 9, 

Q 

r 

n 

0 , 9 , 9 

fi 

9, 

9, 

0 , 0 

fl 

0, 

0 

H 

0 

fl 

0 , 

0 

, 0 , 

9, 

9 


C-' , 

O 
1 , 

9, 

9, 

0, 

9, 

9, 

G , 0 , 

o , 

9, 

Q 

fl 

o 

fl 

0 

,9,0, 

0 ,0,9, 

0,9, 

0 , 9 

, 0 , 

9 

i 

0 , 9 , 0 

n 

9, 

0, 

9 , 0 

fl 

9, 

o 

fl 

9 

? 

0, 

9 

, 0 , 

9, 

0 


0, 

C* , 

9, 

0 H 

0, 

0, 

9, 

0 








rr ,-v — ► -r 

U o / 

DATA9 

,9,9 

, 0 , 

9, 9 

H 

P 

r 

, 0 , 9 , 

Q 

i 

' !■ 9 

, 0 

1 , 0 , 

c 

' H 0 

1 , 

o 

1 :i 

9 

, 0 

' , 

9 , 0 

>, 9 

;i 

; 

',9 

, 0 

l P 1 

H t 

',9 

» n 

f* 7 

' r C 

, 9 , 0 , C 

1 , 0 

C 

fl 

0 

1 1 

0 

, 

0 9 0 , 0 

, 0 , 0 , 9 

, U , 9 

, O , 

9 , 0 

i 

fl 

9 

, 0 , 9 , 

Q 

, 9 

? 0 

Q 

|l 7 fl 

0 

,9 

fî 

0 

fl 

Q 

, 0 

, 

9 , C» 

, 9 

, 1 

o 

, 9 

, Ci 

, 9 

, 0 

Q 

7 

, Ci 

, 0 

-> 0 








5 1 00 RE5TDRE5200 ï RETURN 
5 1 1 O REST0RE52 1 0 : RETURN 
5120 REST0RE5220: RETURN 
5130 RESTQRE5230: RETURN 
5 1 40 REST0RE524Ü : RETURN 

5 2 U U DAT M L 1 «i U i h O 5 O , t.î , , U < 1 .. 1 1 (J « 2 !< ^! i 1 !» O 3 U n O , O . U , (_•' <i O » O , O , v . 1 i U , 1 .JL' B ! i 1. 9 2 . II. 6 L 1 * 1 6 U . 1 V 2 i 1 2 
8,128, 128 

52 1 0 DAT AO , 0 , O , O , 0 , 0 , 1 , 0 , 0 ,0,4, 4 , 3 , O , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 92 , 240 , 200 , 200 , 200 , 200 , 208 , 

224. 192. 192. 192 

5220 DATAO ,0,0,0, 1,0,0, 1 , 1 , 1 , 9 , 9 , 4 , 3 , 1 , 1,0, 0 , 0 , 1 28 , 1 92 , 240 ,136, 200 , 200 , 200 . 200 , 

200. 144.224. 192. 192 

5230 DAT AO, 0, 1,0, 1 , 1 , 1 , 1, 1 , 1,9, 5, 9, 8, 7, 1,0, 192, 224 , 2 1 6 , 228 , 38 , 230 , 38 , 230 , 38 , 230 
, 38 , 228 , 200 , 240 , 224 

5240 DATAI , 3, 1 , 0, 1,3,2,67, 163, 146, 19, 18,35, 34, 17, 15, 192,96, 248, 140, 198, 99, 163,9 
9,227, 163,99, 163,227, 166,204,248 

1 0000 GRAF'HC : PR I NTCHR* (6) : CURS0R9 , 5 : FOR J =0T0 1 5 : FDR I =0T02 1 s X=T ( I , J ) : IFX=9THENPR I 
NT"B" ; : GOTO 10020 

10001 I FX =OTHENPR I NJ " " ; : GOTO 10020 

10002 I FX = 1 THENPR I NTCHR* ( - 1 29* <V=3> -ISO* (V=l) -131# (V=2>-132# <V=4> ) ; : GOTO 10020 

10003 PR I NTCHR* <-136# <X=2) -133* <X=3) -134* <X=4) -145* < X=5> -148* ( X = 10) ) ; 

10020 NEXTI s F'RINT: F'RINTTAB (9) ; : NEXTJ : RETURN 

11000 DAT A" VOUS BUVEZ LA POTION MAGIQUE" , "QUI VOUS DONNE 50 POINTS DE VIE","ET 
VOUS PERMET DE VOIR LE PLAN" 

11010 DAT A" M.»l5laail rffl fl a a»s«fll»JAI a gæiW 1 ' . "VOUS DISPARAISSEZ ", "DANS LE PAS 

SAGE SECRET" , "POUR RESSORTIR EN UN AUTRE LIEU", "DU LABYRINTHE" 

11020 DATA" Il semble dormir ", "Vous pouvez passer sans -faire de bruit:." 

11030 DATA''Bâ&SHU>V' > "LE MONSTRE A DISPARU. "Mais il réapparaît en un autre 
p o i n t " , " d u 1 ab y r i n t h e " 

11040 DATA "LE MONSTRE DU L.ABY VOUS A VAINCU. "NE VOUS. DESOLEZ PAS!”, "COMME VO 
US D’AUTRES ONT ESSAYE EN VAIN”, "CE SERA POUR UNE AUTRE FOIS ! ! " . " ■aiMrWJMIËM " 
11050 DATA "BRAVO ! ! " , "VOUS AVEZ MENE A BIEN VOTRE MISSION. ", "CELA N’ARRIVE QU’AU 
X CHEVALIERS", "TRES COURAGEUX ", "DEPECHEZ-VOUS !!" 

1 1060. DATA" LA PRINCESSE VOUS ATTEND AU CHATEAU."," ".."BONNE SOIREE.." 

11100 DATA" VOUS ETES DANS UN LABYRINTHE" , "SEME D’ EMBUCHES" , "A LA RECHERCHE DE L 
’ EPEE SACREE (*>", " ","I.JN MONSTRE <*> LA VEILLE" , "ET VA CHERCHER A VOUS DEVORER." 

1.1110 DATA" " , "DES TRAPPES <¥) SOURNOISES" , "SONT PLACEES DANS L.E LABYRINTHE" , "HE 
UREUSEMENT", "DES VERRES DE POTION MAGIQUE <*>", "POURRONT VOUS RECONFORTER." 

11120 DATA" ", " KMrtidsMiilgïftifiaH RAMENER L’EPEE", "A L’ENTREE DU LABYRINTHE < 0) .", " 
POUR REGARDER AUTOUR DE VOUS: ", "GAUCHE 4 6 DROITE"," 2 DERRIERE"," " 

11130 DATA" " , "POUR VOUS DEPLACER TAPER 5"," ","L..A TOUCHE a PERMET DE VOIR LE P 
LAN", "MAIS VOUS COUTE 30 POINTS DE VIE.."," " " WHWTTlrHMIBW" 

30000 RESTORE 1 1 040 : K 1 =5 : CONSOLER : PR I NTCHR* < 6 ) : CLIRSORO , 5 : G0SUB45 1 0 : G0SUB4600 : GRA 
F'HOl : CONSOLEN: PR I NTCHR* (6) : END 

40000 CONSOLER : L I NE 1 40 ,155, 140 , 85 , 1 20 ,85,1 20 ,155, 200 ,155, 200 ,85,1 80 , 85 , 1. 80 , 1 55 : 
L I NE 1 40 , 1 05 , 1 80 , 1 05 


40010 LINE 111 

5 

189 

, 1 50 

fi 1 !d 

rr 

, 1 

50, 130, 170, 1 

30 , 

i 

70 , 

1 


20 

P 
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I NE 1 
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1 15 

, 75:.L.INE140, 85 

fi 
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, 85 , 
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fi 

~xcr 

s LINE 180, 85, 

175 
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"’cr 

/ lJ 4 

75 








40030 L I NE200 

fl 

85, 

205, 

85, 

,i i + 

05 

, 75: LINE 175, 
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/ uJ fl 
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t O ji 
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/ 4 1 
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fi 
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, 7 b , 
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fi / % J 


1 9 
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'40040 LINE115 

fi 

Z !d i» 

1 :f. 8 , 

"/CT 

/ U n 

1 

18 

-t r' t j “*r 

fi / (2J fi i i- fi / ID fi l 


-T 
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5, 1 


8,7 

rïr 

fi 

1 

28 , 7 

B, 

J ’-r 

J. J» fi 

p I r 7' “r 
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A*: FOFiJ = l 

TÜ2000: NEXTJ , 

1 , 139, 1 1 1 

I , 63 I , 203+ I 

1 B 9 : L I NE 1 

OB I „ 130, 120, 


,138,78,143,78, 1 43 , 75 ,145, 75 

40050 FORX 1 40T0 1 7 05TEF' 1 0 : L I NE X , 95, X+2, 95, X +2, 100, X+7, 100, X+7, 95, X+10, 95: NEXT. 
40060 A*=CHR* < 28 > + " # 1 1 31 1 T ' s PCIS I T I ON 1 45 ,115: PATTERN— 8 , A* : POS I T I ON 1 67 , 1 1 5 : PATTER 
N-B, A*: POSITION 126, 95: PATTERN- 8, A*: P0BITI0N1B6, 95: PATTERN -8 , A* 

40070 RESTORE 1 1 050 : PR I NTCHR* < 6 ) : FOR I = 1 T08 : CLIRSORO , 4 : PR I NT S TR I NG* < " " , 39 ) ■ READA* 
: PR I NTCHR* <2> 5 TAB ( 20--LEN < A* ) /2 ) 

40030 FOR I =0T 050STEP3 : BL I NE 1 1 1 

169,1 08 1 , 60- 1,211 i- 1 , 60 1 . 2 1 1 + 1 

40090 NEXT: GQSUB4600: CONSOLEN: CLIRSORO, 24: END 

45000 -CONSOLER : PR I NTCHR *(6) : CURSORO , 5 : GDSUB45 1 0 : G0SUB4600 : GFAPHC : CONSOLEN : END 
50000 PR I NTCHR* (6) : GRAPHE : RESTORE 1 1 1 00 : K 1 -~9 : G0SUB45 1 0 : G0SLJB50 1 00 : PR I NTCHR* < 6 ) s K 
1 =6 : G0SUB45 1 0 : G0SUB50 1 00 : PR I NTCHR* ( 6 > : K 1 ~ 1 1 : GCSUB45 1 0 : G0SI.JB50 1 00 : G0T0220 

50 1 00 GETR* : I FR*= THEN50 1. 00 

50110 RETURN 

60000 PR I NTCHR* ( 6 ) : CONSOLER : GRAF'HC , 0 1 : L I NE30 , 1 , 30 , 1 99 : L I NE290 , 1 , 290 , 1 99 
60010 F G F: Y == 3 5 T G 7 0 STE P 5 : FOR J -- 3 0 + F T ü 2 9 0 STE P 1 0 : L. I N E J , Y, J, Y+5: NEXTJ: F=-5* < F*0 ) : LI 

NE30, Y, 290, Y: NEXT: LINE30, 75, 290, 75 

6 0 0 2 0 F 0 R Y - 7 5 T 0120BT E P 5 : F 0 R J - 30+FT01 4 0 S T E P 1 0 : L I N E J , Y , J , Y + 5 : N EXT J: L I N E 3 O, Y , 1 4 0 , Y 
60030 F G R J -- 1 8 O + F T G 2 9 0 S T E P 1 0 : LINE J, Y, .J, Y+5: NEXTJ: LINE180, Y, 290, Y: F =-5# <F”=0) a NEXT 
: LINE 30, 125,290, 125:LINE60, 199, 140, 125, 140,75, 180,75, 130, 125,260, 1 99 : RETURN 



RESOLU I X Oïvl 


ASTEROÏDES ('PRATIQUE DU MZ 80 K’).. 

TENTER DE TRAVERSER L’ECRAN EN EVITANT DES OBSTACLES EN TOUS GENRES. (1 JOUEUR) 

ALLUMETTES (MI CRO . SYST. ) . . 

CELEBRE JEU CONTRE M2; CELUI QUI PREND LA DERNIERE ALLUMETTE A PERDU, il JOUEUR CONTRE MZ) 

ALUNISSAGE (?) . . 

UNE DES MEILLEURES EXPLOITATION GRAPHIQUE DE MZi DEMANDE BEAUCOUP DE SANG-FROID 

AUTO CROSS (ANGL.).. 

FAIRE UN CIRCUIT EN UN MINIMUM DE TEMPS EN EVITANT TOUS LES OBSTACLES iGRAPH & SON.) 

ANAGRAM (A. DUBOIS) . . 

DENOMBRE LES PERMUTATIONS POSSIBLES D’UN MOT QUELCONQUE ET LES AFFICHE. 

ANNONCES BRIDGE (A. ROUX).. 

INDIQUE DANS LA MAJEURE CINQUIEME; L’OUVERTURE D’ANNONCE; MAIN ALEATOIRE OU INDIQUEE.. 

BOWL ING (S.B.M.).. 

TRES GRAPHIQUE! AFFICHE LES SCORES ET LES QUILLES COMME DANS LA REALITE. (G JOUEURS MAXI.i 

BLOCK KUSUSHI (JAPON).. 

MUR DE BRIQUE TRES DIFFICILE A BATTRE; EN ASSEMBLEUR; 3 NIVEAUX 

BOGGLE (A. CORNU) . . 

VARIANTE GRAPHIQUE DU 'MOT LE PLUS LONG’; JUSQU’A 9 JOUEURS. 

BLACK JACK ( A . FED I DA ) . . 

PASSIONNANT JEU DE CARTES CONTRE MZ. UTILISE TOUTES LES POSSIBILITES GRAPH 4 SON DU MZ 

COURSE DE VOITURE (???).. 

ROUTE ALEATOIRE; 3 NIVEAUX DE VISIBILITE; 5 LARGEURS DE ROUTE il JOUEUR) 

COLDITZ (ANGLETERRE) . . 

JEU DE SITUATION CONVERSATIONNEL EN ANGLAIS: EVASION MOUVEMENTEE DE LA FORTERESSE DE COLDITZ. 
CHASSE (ANGL > 

ATTRAPPER LE FAUVE ECHAPPE T LE’PLUS RAPIDEMENT 'POSSIBLE 

CARRE MAGIQUE. (S.BIZOIRRE) . . 

MZ TROUVE TOUT CARRE MAGIQUE D’UNE TAILLE MAXIMUM DE 9 * 9 NOMBRES 

ECHECS MZ 50 (ANGLETERRE).. 

BONNES PARTIES AU NIVEAU 5 CONTRE JOUEUR MOYEN; AFFICHE LES COUPS: GRAPHIQUE REUSSI. 

ECHECS SARGON 2.5 (ALLEMAGNE).. 

LE MEILLEUR PROGRAMME D’ECHECS SUR ORDINATEUR MAIS IL FAUDRA S’HABITUER AU GRAPH DES PIECES. 

ELI SA (CLUB) . . 

MZ RESOUDRA (EN ANGLAIS) TOUS VOS PROBLEMES PSYCHOLOGIQUES EN CONVERSANT AVEC VOUS 

FREQUENCES (ANGL. ) . . 

UN UTILITAIRE TRES PRATIQUE POUR VOUS AIDER A CREER TOUTES SORTES DE SONS SUR MZ. 
GALACTICAN (ALL ) 

SUPER ’SPACE INVADER’VlÉ MER LEUR "PROGRAMME *DÉ j"eÛ EN "ASSEMBLEUR SUR* Büiîi "SAISISSANT.. 

HANOI MODIFIE (ANGL.).. 

LE JEU COMMENCE AVEC UNE COMBINAISON PRE-ETABLIE; 5 NIVEAUX. 

HEAD ON (ANGL. ) . . 

UN CLASSIQUE; DEMANDE BEAUCOUP DE REFLEXES.. ET DE CALME CAR GAGNER EST UN EXPLOIT !. 

ISOLA (ANGLETERRE) . . 

SE JOUE A DEUX! LE PREMIER QUI ARRIVE A IMMOBILISER SON ADVERSAIRE A GAGNE. 

JUMPING BALLL (S.B.M.).. 

JEU DE REFLEXION TRES RAPIDE 

JACQUET (?) 

JEU CONTRE MZ AVEC GRAPHISME DU JEU ET DES DES. 

JUNTORY GAMES (ANGL.).. 

IDEM A 'ISOLA’ MAIS EN ASSEMBLEUR DONC BEAUCOUP PLUS RAPIDE ET MIEUX SONORISE. 

JEU DE LA VIE (B) ( J . BERCG V I C I ) . . 

TRES GRANDE RAPIDITE D’EXECUTION DU A UN SOUS PROGRAMME EN ASSEMBLEUR. 

JEU DE LA VIE (K/A) (CLUB).. 

TRES RAPIDE 

KINGDOM (?) . . 

SI VOUS DESIREZ REGNER LONGTEMPS SUR VOTRE ILE 

LABYRINTHE EN 3 DIMENSIONS (S.B.M.).. 

SORTIR DM LABYRINTHE DONT ON CHOISIT LES DIMENSIONS; GRAPH. 4 PASSIONNANT. 

LE MARAIS DE L'ALLIGATOR... (ANGLETERRE).. 

CUEILLIR LES NOIX DE COCO SANS SE FAIRE MANGER PAR L’ALLIGATOR iGRAPH 4 SONS TRES REUSSIS 

LE VOLEUR (ANGL. ) . . 

VOUS ETES LE VOLEUR ET DEVEZ RAMASSER LE MAXIMUM DE DIAMANTS EN EVITANT LES CHIENS. 

LE CHATEAU HANTE (?).. 

JEU DE SITUATION TRES COMPLET; PEUT DURER PLUSIEURS HEURES LIVRE AVEC NOTICE... 

LA BOITE A ATOMES ..(S BIZOIRRE).. 

JEU DE REFLEXION; TRES DIFFICILE A BATTRE AU NIVEAU 9; GRAPHIQUE. 

LAS VEGAS .... ( 7 ) 

FIDELE RECONSTITUTION D'UNE MACHINE à" 50US;"TRES BEAUX GRA’PHS."; f/2 fosiC-1/2 ASSEMBLEUR 

MUR DE BRIQUE (ANGLETERRE).. 

JEU D’ADRESSE! GRAPHIQUE; NIVEAU MOYEN. 

MORPION (L’ O. I . ) . . 

ALLIGNER 5 CROIX DANS UNE GRILLE 10 » 10; MZ LENT (30 sec.) MAIS TRES FORT. 

J ^ Ç J | ^ ^ ^ 

TENTER D'ATTEINDRE "lÔ CIBLÉS "SÛR ‘GRILLÉ D"e‘iÔuVaVEC i'nDICAT'ic’ns" a" CHAQUE "COUP TIRE.' 

MINEUR (?) . . 

VOUS CHERCHEZ DE L’OR DANS UNE MINE ET DEVEZ AFFRONTER MOULTE OBSTACLES; BEAU GRAPH. 

MAISON MYSTERIEUSE (COQUEREZ).. 

MEFIEZ VOUS DE CETTE MAISON OU VOUS ATTENDENT 1000 PERIPETIES OU... LA MORT* 

OTHELLO 1 (S.B.M.).. 

NIVEAU MOYEN. GRAPHIQUE. 

OTHELLO 2 (A.URCUN) . . 

MOINS 6RAPHIQUE MAIS BEAUCOUP PLUS FORT QU’ OTHELLO 1. 

OBSTACLES (R. GERMAIN) . . 

TRAVERSER L’ECRAN EN EVITANT UNE MULTITUDE D’OBSTACLES. PRGG. EN BASIC ET ASSEMBLEUR. 

POKER (S.B.M.).. 

BEAU GRAPHISME DES CARTES. NIVEAU MOYEN. 

PRISONNIERS (A. CORNU) . . 

HZ TENTE DE SORTIR D’UN LABYRINTHE DONT VOUS AUREZ CHOISI LA DIFFICULTE; TRES DEMONSTRATIF. 

PAPER STONE (?) . . 

JEU DU PAPIER-PIERRE-CISEAUX... EROTIQUE.. 

POULES ET RENARD .(ANGLETERRE).. 

IL FAUDRA BEAUCOUP DE RUSE AU RENARD (VOUS) POUR ECHAPPER AU RENARD (HZ) SUR UN DAMIER. 
PUISSANCE 4 ......... C 7 ) . . 

JEU DE DEDUCTION CONTRÉ HZ;' DIFFICILÉ A BATTRE (AU DEBUT...); JOLI GRAPHISME. 
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SP 5025 
4K/oct ■ 
SP 5025 
2K/oct . 
SP 5025 
12K/oct . 
SP 5025 
5K/oct . 
SB 5510 
4 K / o c t . 
VM 5060 
4K/oct , 
SP 5025 
5K/oct . 
MACHINE 
1 OK /oc t , 
VM 5060 
6K/oc t , 
SP 5025 
25K/oct . 
VM 5060 
6K /oc t , 
SP 5025 
1 4K/oct 
SP 5025 
5K/oc t 
SB 5510 
BK/oct 
MACHINE 
48K/oct 
MACHINE 
48K/oc t 
SP 5025 
6K/oct 
VM 5060 
3K/oct 
MACHINE 
8k/oct 
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4K/oct 
MACHINE 
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RA IL ( 9 ) 

PAS FACILE *Ef PASSIONNANT DE ‘FAIRE 'TRAVERSER ‘lÂ LOCONOflVE*EN COHHÂNDAMT ’le's ‘AlOÛlLLAGES 

RHINOCEROS (J.ANCHISE) . 

IL FAUT VOUS SAUVER DE LA FORET AVANT BUE LE RHINOCEROS NE VOUS ATTRAPPE (GflAPH) 

RETOURNE <P. BELMONDO) . 

VERSION SPECIALE NI D’UN JEU TRES CONNU; DEHANDE BEAUCOUP DE NEHOIRE VISUELLE. GRAPHIQUE 

SPACE FIGHTER (S.B.M.). 

JEU DE REFLEXION ET D’ADRESSE. RAPIDE; GRAPHIQUE; SONORE 

STAMP OUT < ANGLETERRE) . 

JEU D'ADRESSE] ATTRAPER LE NAXINUH D’ETOILES EN EVITANT DE + EN + D’OBSTACLES. (1 JOUEUR) 

STARTRECK ( A . FED I DA ) . 

CELEBRE JEU DE GUERRE SPATIALE; UTILISE TOUTES LES POSSIBILITES GRAPHIQUES & SONORES DU HZ 

SOUS MARIN < REVUE) . 

VOTRE SONAR VOUS AIDERA A COULER DES NAVIRES SUR UNE 6RILLE DE DIMENSIONS VARIABLES. 

SUPER MAS.TERM I ND (REVUE) . 

COMBINAISONS DE 3î4î5 OU 6 CHIFFRES. 1 JOUEUR CONTRE HZ OU 2 JOUEURS. 

SUPER LOGOTRON (REVUE). 

CREATION HZ’ESOUE D’UN NOHBRE INFINI DE HOTS AVEC LA SIGNIFICATION DE LEUR RACINE. 

SAUVETAGE (REVUE) . 

VOUS DEVEZ ATTRAPER LE HAXIHUH DE PERSONNES OUI SAUTENT D’1 IMMEUBLE EN FEU. (GRAPH & SON) 

STR IP-TE ASE ( J . P. GLUCK) . 

AU DEBUT DU JEU] LA JEUNE FILLE EST HABILLEE; LA SUITE VOUS COUTERA 6 POINTS.. 

TOURS DE HANOI (???). 

JEU DE (GRANDE) PATIENCE CHINOIS; DEHANDE BEAUCOUP DE REFLEXION. U JOUEUR) 
TELECRAN (S BIZOIRRE) 

CREATION DE DESSfNS'SUR' L’ECRAN AVEC "LÀ f‘0NCTIÔn‘’SET’ '(J'eÛ POUR ENFANT). 

TELECRAN MEMOIRE ( A . FED I DA ) . 

IDEN A TELECRAN HAIS AVEC CARACTERES NORHAUX ET HEHORISATIQN DE PLUSIEURS PAGES DE DESSIN. 

TOUR INFERNALE (JAPON). 

UNE TOUR EN FLAHNES..ET VOUS DEDANS; PAS FACILE DE S’EN SORTIR. BEAU PROG. (GRAPH & SON. 

TIERCE (?) . 

VOUS HISEZsnZ VOUS DONNE LES COTESïVOUS fait ASSISTER a la COURSE; et distribue les gains. 
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DEMO H. R (CLUB).. 

COURTE HAIS SAISISSANTE DE HO DE HAUTE RESOLUTION < GRAPH 1) 

FIGHTER (S. B. M. ) . . 

ABATTRE LE HAXIHUH D’AVIONS QUI TRAVERSENT L’ECRAN. (CARTES GRAPH. 1 ET 2). 

FANCY CLOCK (S.B.M.).. 

LE SUHHUH DE L’HORLOGE RURALE NUHERIQUE ET A AIGUILLES. (GRAPH I). 

GRAPHISMES ( J . P . GLUCK > . . 

8 GRAPHISMES DIFFERENTS: COCON 

LAS VAGAS-B (S.B.M.).. 

IDEN ’LAS VEGAS-K’AVEC GRAPH H. R. SAISISSANTS ! (GRAPH 1). 

LABYRINTHE 3 DIM (J. MILLET).. 

TRES BELLE VERSION POUR HZ 80 B.PASSIONNANTE;BEAUX GRAPHS (6RPH1) 

OTHELLO H. R ( J . P . LHO IR).. 

UN PR06. ORIGINAL ET TRES FORT. 

p n I f Q Q cr P ri I i c c c / c il t 7 n T p p r \ 

REPLIQUE DU CELEBRE JEU DE "PATIENCE; *5 *NMAiIx;*DÉHÂNDE " pÂTl"ENCÊ b LOGIQUE; GRAPHIQUE ANIHE.' 

PENDU H. R (CLUB).. 

VOUS AUREZ UN BEAU PENDU EN H. R HAIS DEVREZ CREER VOTRE PROPRE LISTE DE HOTS. (GRAPH1) 

PETALES DE VIE (L’O.I.).. 

ASTROLOGUE & ASTRONOME; HZ VOUS PREDIRA 1’ AVENIR SUR 1 AN AVEC UN TRES BEAU GRAPH (6R1 ) 

ROSACE ( J . P . GLUCK ) . . 

CREATION D’1 VITRAIL POUR St. SHARP; CHAPELLE DE’ AIHEZED’ ;LIEU DIT ’QUATREVINGTBE’ (6PH 1) 

SPACE ODYSSEY (ANGL.).. 

JEU 6RAPHIQUE H.R. PASSIONNANT SI L’ON EST HABILE ET PATIENT. BEAUX GRAPHS. (GRAPH i). 


r 

CBD 

SB 5510 

i_ 

***** 

3 K / o c t . 

r 

CBD 

SB 5510 

L 

* * * * 

6 K / o c t . 

r 

CBD 

SB 5510 

L 

******* 

1 2K/OC t . 

r 

CBD 

SB 5510 

i_ 

****** 

4K/oc t . 

r 

CBD 

SB 5510 

L. 

******** 

40k /oc t . 

r 

CBD 

SB 5510 


******** 

64K/OC t . 

r 

CBD 

SB 5510 

L 

******** 

40k /oc t - 

r 

CBD 

SB 5510 

u 

******** 

40k /oct . 

r 

CBD 

SB 5510 

L 

****** 

lOk/oct . 

r 

CBD 

SB 5510 

L 

******* 

2Dk/oc t - 

r 

CBD 

SB 5510 

L 

****** 

1 2k /oc t . 

r 

CBD 

SB 5510 

t_ 

******** 

64K/oct . 


3 

3 

T 

J 

T 

J 

3 

3 

3 

3 

3 

1 

J 

3 

3 


u r a i. i; TF* :i: res 


HWWWwiJHtfMmm mil wmiiMtrtiatiH www wHimu i héuhumi 




itmau NMMUtnHiHJHrtifiMiaMfi 


BAS I COI S (L’O. I. ) . 

BASIC EN FRANÇAIS POUR BASIC 5010 ET 5025 

COPIE K7 (ANGL. ) . 

VOUS PERMET DE RECOPIER TOUT PROGRAMME ECRIT EN ASSEMBLEUR. 

C.A.O. DESSIN GRAPH (A. CORNU). 

AIDE A LA CREATION DE DESSINS ET INSERTION AUTOMATIQUE DANS UN PROGRAMME 

DESASSEMBLEUR. (REVUE) . 

PERMET DE TRADUIRE; EN CLAIR] TOUTES LES INSTRUCTIONS Z 80 CONTENUES DANS UN PROG. MACHINE 

DESASSEMBLEUR MACHINE (KOKANOSKI). 

DESASSEHBLEUR EN LANG. MACHINE; ECRAN OU IMPRIMANTE; '5 FOIS + RAPIDE HAIS NON MODIFIABLE 

KOKAN. SUPER BASIC 2 ( B . KOK ANOWSK I ) . 

VOIR No.l POUR EXPLICATIONS ET CE No. POUR COMPLEMENT D’INFORMATIONS. 

MODIFS 5025 ( B . KOK ANOSK I ) . 

MODIFIE ET AMELIORE LES POSSIBILITES DU SP 5025. VOIR ARTICLE BULLETIN No.2 

PATTERN MAKER *. . . . . (CLUB) . 

UN UTILITAIRE QUI FACILITERA LA CREATION DE VOS GRAPHISMES H.R. (GRAPH1). 

RENUM (J. P. GLUCK) . 

PERMET LA RENUMEROTAT ION DES LIGNES D’UN PROG.; SANS MODIFIER LES GOTO; GOSUB; ETC.. 
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ACCORDEON (S - BIZOIRRE) . 

'LE VOL DES HIRONDELLES’ ; UN P’TIT AIR D’ MUSETTE. 

BACH . . . . (S. BIZOIRRE) - 

2 EXTRAITS DES SUITES POUR VIOLONCELLE (SYNTHETIQUE) 

COP Y P5 * 2 (S. BIZOIRRE) . 

PERMET UNE RECOPIE D'ECRAN BASSE OU HAUTE RESOLUTION SUR IMPRIMANTE EN GRAND FORMAT. 

MUSIC — B. • . . • . • . « . • • . . . • - . . . (A. DUBOIS) .. 

PERMET DE JOUER LES 3 6AHHES DIRECTEMENT AU CLAVIER; LES NOTES APPARAISSENT SUR UNE PORTEE 

MUSIC 4 (CLUB) . 

M2 CREE UNE MUSIQUE ALEATOIRE MAIS REPONDANT AUX REGLES DE LA COMPOSITION. 

MONA LISA , (S. BIZOIRRE) . 

FIDELE REPRODUCTION DE 'LA J OC ON DE’ SUR IMPRIMANTE P5 

MUSIQUE SUISSE ....(CLUB). 

4 MINUTES DE TRES BELLE MUSIQUE. 
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CHA I NE L S E 

SIMULATION DE TOUTES *LES "fÔNCT IONS *CHAl"NÊ Du\ÂN6A6E*L.*S.*E.' *12 SOUS - PRÔ 6RÂHMÉ S > ^ 

DERIVEES (A. DUBOIS) . 

DONNE LES DERIVEES SUCCESSIVES D'UN POLYNOME. 

EQUATIONS (M.FAHRI). 

RESOLUTION D'EOUATIONS PAR METHODE DU PIVOT 

6UITARE 

COURS DE GUITARE COMPLET AVEC TABLATURE DES ACCORDS 

LECTURE C.M (F.DENIZET) 

ENTRAINEMENT A LA LECTURE POUR ENFANTS DE COURS MOYEN. 

LECTURE C.E (F.DENIZET) 

AIDE A LA LECTURE POUR ENFANTS DE COURS ELEMENTAIRE ET MOYEN. 

MULTIPREC. - (A. DUBOIS) . 

TRAITE EN HULT1PRECISI0N ADDITION 

MOYENNES (J. MILLET) . 

GESTION DES NOTES D’UNE CLASSE AVEC TABLEAU) ET HIST06RAMME5 

PASCAL (A. DUBOIS) 

ETUDE DU TRIAN6LE DE PASCAL JUSQU’A L’ORDRE 46 (SATURATION) 

POLYGONES (S. BIZOIRRE) . 

NZ CREE: A LA DEMANDE: TOUTES SORTES DE POLYGONES EN H.R.<6RAPH1>. 

RESOLUTION EQUATIONS (A. CORNU). 

EQUATIONS 1er.; 2eee.; 3eae. DE6RE ♦ 3 EQUATIONS A 3 INCONNUES. 

RACINES POLYNOME 

RECHERCHE DES RACINES D’UN POLVNOME... (BIEN SUR) 

STATISTIQUES.. (A. DUBOIS). 

STATISTIQUE DESCRIPTIVE (POUR CLASSES DE LYCEE) 
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ANNUAIRE ’ MICRO SYSTEMES 7 (S. BI ZOIRRE) . 

TOUS LES ARTICLES DE 'MICRO SVSTEHE3 7 REFERENCES PAR NUMERO ET PAR THEMES. 

ANNUAIRE 'ORDINATEUR INDIVIDUEL 7 (S. BIZOIRRE) - 
IDEM A ANNUAIRE 'MICRO SYSTEMES' 

ESCALIER (P. JARDE) • 

fl. Z. ETUDIE. ET CALCULE POUR VOUS LE MEILLEUR ESCALIER D'APRES UNE PENTE DONNEE. 

PARI SCOP . (CLUB) . 

POUR FANA DE CINE. FICHIER FILMS * SALLES; RECH. FAR CA7EGÜR I ES ; REAL I SA T . ; AN; P A Y S ; ACTEUR 5 . 

R.L.C. SERIE ET PARALLELE (?). 

DETERMINE LES VALEURS D'UN CONDENSATEUR; D'UNE RESISTANCE; D’UNE SELF DANS UN CIRCUIT. 
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Dans le prochain bulletin, 
je me retourne 
(Dossier réalisé sur PC 1 500) 


Réalisation TD Publicité. 
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GAGNEZ 2603,27 F* 

grâce à votre PC 121 1 

* Sur l’achat d’un MZ 80A 

Du 1 er janvier 1983 au 31 mars 1983, S.B.M. vous propose le MZ 80A au PRIX 
EXCEPTIONNEL CLUB PC 1211 de 71 16,00 T.T.C. au lieu de 9719,27 F en 
échange de votre PC 1211 et de ses périphériques. 



Caractéristiques techniques 
MZ-80A 


Unité centrale 

Z-80 

Mémoire 

MEM de 4K octets; MEV standard de 32K octets 
(extensible à 48K en option) 

Affichage 

Ecran cathodique vert de 9 pouces (23cm); 
matrice 8 * 8 points; 40 caractères sur 25 lignes 

Cassette 

Commandes manuelles; Cassette audio standard 
Transfert de données (Système PWM Sharp); 

1200 bits/second 

Sortie son 

400 MW max. (440Hz) 

Touches 

Clavier ASCII; Majuscules; Minuscules symboles 
graphiques; pavé numérique 

Gestion d’écran 

Commandes du curseur (haut, bas, gauche, droite, 
origine, effacement); Touches d’insertion et de 
suppression. 



COMMENT PARTICIPER : 

• Vous êtes membre du club et vous posséder une PC 1211 et 
ses périphériques en parfait état de marche (achetée avant le 
1 . 12 . 82 ). 

• Renvôyez-nous le bon ci-dessous dûment rempli accompagné 
de votre règlement et des justificatifs d’achat de votre PC 1211 
et de ses périphériques (double de facture). 

• Vous recevrez par retour un bon d’enlèvement vous permettant 
de retirer votre MZA chez le distributeur régional S.B.M. le plus 
proche de votre domicile. 

• En allant chercher votre MZ remettez le PC 1211 et ses péri- 
phériques au distributeur S.B.M. (celui-ci se réserve le droit 
d'annuler l’opération au cas ou la PC 121 1 n’est pas en état sa- 
tisfaisant). 


ET AUSSI 

DES PRIX SUPER CLUB 
sur les périphériques 


MZ80A 

T.T.C. 

au lieu de 

Panier interface 
(AEU) 
Imprimante 
MZ 80 P5 

1700,00 

2.352,00 

6700,00 

9055,20 

Interface 

Floppie (AFI) 
Boîtier 
disquette 
1 Drive 

1700,00 

2352,00 



double face, 
double densité 
(MZ 80 FD1) 

6500,00 

8582,44 


BON DE COMMANDE à DECOUPER et à RETOURNER à S.B.M. CLUB PC 1211 

151-153, avenue Jean-Jaurès- 93307 AUBERVILLIERS - avant le 31.03.1983 


Je soussigné(e) possesseur de la PC 1211 n° 

AGE : Adresse : 


Ville : 


Code postal : 


désire bénéficier des conditions exceptionnels club pour l’achat d’un MZ 80A au prix de 
J’en profite également pour vous commander : 


□ Panier interface au prix de 

□ Imprimante P5 au prix de 

□ Interface Floppie au prix de 

□ Boîtier disquette - 1 Drive double face, double densité au prix de 


1 700.00 F T.T.C. 

6700.00 f T.T.C. 

1 700.00 F T.T.C. 

6500.00 F T.T.C. 


Soit au total de francs 


dont je joins le règlement par : □ CHEQUE BANCAIRE □ C.C.P. □ MANDAT 

Matériel rendu : □ PC 1211 □ CE 121 □ CE 122 


71 16 F T.T.C. 



J’ai bien noté que je remettrais en échange ma PC 1211 et ses périphériques au distributeur régional S.B.M. chez qui je prendrais possession 
de mon MZ 80 A. 


Nom et adresse (éventuel) du distributeur chez lequel j’aimerais être livré 

SIGNATURE : 


DATE : 


